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model-based data language. Thus, the database system is restricted to a single 
data model and a specific data language. An alternative to this traditional 
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collection of databases via several data models and their corresponding data 
languages without the aforementioned restriction. 
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I. AN INTRODUCTION 


A. THE MOTIVATION 

The concept of a database system has been widely accepted by major users of 
computers ever since it was introduced. Many database systems have been 
developed and utilized by a large community of users. These database systems 
have been designed and implemented in a rather conventional manner - a specific 
data model for the database svstem is always selected first. then a corresponding 
model-based data language is specified. Some examples of these database systems 


are: 


e IBM's Information Management System (IMS) which supports the 
hierarchical database model and IBM’s Data Language I (DL/I) 


e IBM’s SQL/Data System which supports the relational model and IBM’s 
Structured English Query Language (SQL) 


e Univac’s CODASYL-DML/Data System which supports the network model 
and Univac’s CODASYL Data Manipulation Language (CODASYL-DML) 


e CCA’s Daplex/Data System which supports the functional model and CCA’s 
Daplex Language 


The result of this conventional approach to the design of a database system 
is a mono-lingual database system where the user sees and utilizes the database 
system with a specific data model and its model-based data language. One 


research effort to overcome this limitation was to introduce a new and 
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unconventional approach to the design and implementation of a database system, 


the multi-lingual database system (MLDS) [Ref. 1]. 


B. THE MULTI-LINGUAL DATABASE SYSTEM 

The multi-lingual database system is a single database system that can 
execute many transactions written in different data languages and support many 
databases structured on different data models. The design goals of MLDS involve 
developing a system that is accessible via four different interfaces, the 
hierarchical/DL/I [Refs. 2, 3]. network/DML [Ref. 4), relational/SQL (Ref. 5). and 
functional /Daplex [Ref. 6] models. MLDS transforms traditional database models 
into a single database model called the attribute-based model [Ref. 7|. The 
system structure of MLDS is shown in Figure 1.1. 

The user data model (UDM) and the user data language (UDL) refer to the 
database model and language chosen by the user. The kernel data model (KDM) 
and the kernel data language (KDL) refer to the attribute-based model and 
attribute-based data language (ABDL). Users issue transactions through the 
language interface layer (LIL) using a chosen user data model (UDM) and written 
in a corresponding model-based data language (UDL). LIL then routes the user 
transactions to the kernel mapping system (KMS). If the user specifies that a new 
database is to be created, KMS transforms the database definition to a KDM- 


based database definition and forwards to the kernel controller (KC). KC, in 


turn, sends the KDM database definition to the kernel database system (KDS). 


12 








UDM : User Data Model 
UDL : User Data Language 


LIL : Language Interface Layer 
KMS — 20 Kernel Mapping System 
KC : Kernel Controller 

KFS : Rernel Formatting System 


KDM : Kernel Data Model 
h DL : Rernel Data Language 
RDS : hernel Database System 


Figure 1.1. The Multi-lingual Database System (MLDS). 


After KDS has completed its tasks of creating the database, it informs KC. KC 
then notifies the user via LIL. If the user specifies transactions using UDL 
through LIL, KMS translates the UDL transactions to the KDL transactions and 
sends them to KC. KC then forwards the KDL transactions to KDS for 
execution. Upon completion, KDS sends the results in the KDM form back to KC. 
KC then routes the results to the kernel formatting system (KFS) which formats 
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the results to the UDM form. The results in the correct UDM form are then be 
displayed via LIL. 

The four software modules. LIL, KMS, KC, and KFS, are collectively known 
as the language interface. Four similar sets of these modules are required for the 
four different data model/language interfaces supported by MLDS. The 
hierarchical/DL/I language interface [Ref. 8], relational/SQL language interface 
[Ref. 9], and network/DML language interface [Ref. 10] have been implemented. 
The functional/Daplex language interface [Ref. 11] has been partially 
implemented. This thesis is a continuation on the task of implementing the 


functional /Daplex language interface. 


C. THE KERNEL DATA MODEL AND LANGUAGE 

The choice of a kernel data model and a kernel data language is the key 
decision in the development of a multi-lingual database system. The overriding 
question, when making such a choice, is whether the kernel data model and kernel 
data language is capable of supporting the required data-model transformations 
and data-language translations for the language interfaces. 

The attribute-based data model proposed by Hsiao [Ref. 12], extended by 
Wong [Ref. 13], and studied by Rothnie [Ref. 14], along with the attribute-based 
data language (ABDL), defined by Banerjee [Ref. 15], have been shown to be 
acceptable candidates for the kernel data model and kernel data language, 


respectively. 
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The determination of a kernel data model and kernel data language is 
important for MLDS because no matter how multi-lingual MLDS may be, if the 
underlying database system (i.e.. KDS) is slow and inefficient, then the interfaces 
may be rendered useless and untimely. Hence, it is important that the kernel 
data model and kernel language be supported by a high-performance and great- 
capacity database system. Currently. only the attribute-based data model and 
the attribute-based data language are supported by such a system. This system is 


the multi-backend database system (MBDS) [Ref. 16}. 


D. THE MULTI-BACKEND DATABASE SYSTEM 

The multi-backend database system (MBDS) has been designed to overcome 
the performance problems and upgrade issues related to the traditional approach 
of database system design. This goal is realized through the utilization of 
multiple backends connected in a parallel fashion. These backends have identical 
hardware, replicated software. and their own disk systems. In a multiple 
backend-configuration, there is a backend controller, which is responsible for 
supervising the execution of database transactions and for interfacing with the 
hosts and users. The backends perform the database operations with the database 
stored on the disk system of the backends. The controller and backends are 
connected by a communication bus. Users access the system through either the 


hosts or the controller directly (see Figure 1.2). 
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Figure 1.2. The Multi-Backend Database System. 





Performance gains are realized by increasing the number of backends. If the 
size of the database and the size of the responses to the transactions remain 
constant, then MBDS produces a reciprocal decrease in the response times for the 
user transactions when the number of backends is increased. On the other hand, 
if the number of backends is increased proportionally with the increase in 
databases and responses, then MBDS produces invariant response times for the 


same transactions. A more detailed discussion of MBDS is found in [Ref. 16). 
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E. THE ORGANIZATION OF THE THESIS 

The remainder of this thesis is organized into five chapters and five 
appendices. In Chapter II, we present the background materials. This includes 
an overview of the source data language, Daplex and the target data language, 
ABDL. In Chapter III, we describe the implementation strategy, the program 
modules and the data structures used in the functional/Daplex language interface. 
In Chapter IV. we present additions and modifications to the language interface 
layer from the first implementation (Ref. 11]. In Chapter V, we describe the 
mapping process of the kernel mapping system. Finally, in Chapter VI, we 
conclude the thesis. Of the appendices, Appendix A contains the data structures 
used for the interface; Appendix B and C contain the program listings for the LIL 
and KMS modules; And, Appendix D lists the grammar rules used in our 


implementation of the Daplex interface. 
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II. THE BACKGROUND MATERIALS 


A. THE SOURCE DATA LANGUAGE - DAPLEX 

Daplex is a database language that was created by David W. Shipman |Ref. 
17] in 1979 while working at the Computer Corporation of America (CCA) and 
the Massachusetts Institute of Technology (MIT) (Ref. 18). Its foundation is in 
what Shipman and Gray (Ref. 18] call the functional data model. One of 
Shipman’s goals for Daplex is to provide a conceptually natural database interface 
language. That is. the Daplex constructs used to model real-world situations are 
intended to closely match the conceptual constructs a human being might employ 
when thinking about those situations. Such conceptual naturalness, to the extent 
it has been achieved, presumably simplifies the process of writing and 
understanding Daplex requests. since the translation between the users mental 
representation and its formal expression in Daplex is more direct. 

Gray notes that Shipman developed his concepts from the semantic net data 
abstraction used in artificial intelligence. The semantic net is a structure that 
represents associations between objects. For each object of a given type, there is a 
corresponding collection of functions which are applicable to it; some of these 
provide simple values, but the results of others are found by following arcs in the 


net, which connect the object to other objects of various types. Functions can be 


18 


applied in turn to these objects, thus determining a network of associations. 
Consequently, Shipman’s Daplex relies on functions and functional composition to 
derive actual values. 

A sample database, univ, is used for examples throughout this thesis. The 
database schema is presented in Figure 2.1 and a graphical representation of the 
database is presented in Figure 2.2. This database follows closely the sample 
database. university, in the Daplex Users Manual (Ref. 19] except that some 
identifier names have been abbreviated. The abbreviation is necessary as the 
attribute-based data language requires the identifier name to be of eight or less 
characters in length and the use of underscore in an identifier name is not 
permitted. 

The Daplex database language consists of two parts, the data definition 
language (DDL) and the data manipulation language (DML) . DDL defines the 
logical types and structures of information in databases and the constraints that 
specify which values are legal. DML allows a database user to create, delete, 
modify, and retrieve information in the databases. 

1. The Data Definition Language 

Daplex database definitions are syntactically similar to programming 
language declarations. The basic construct of DDL is the database declaration. A 
data declaration consists of data declarations and constraints. The data 
declarations define the types and structures of the database. The constraints 


define the set of legal values of the database. The basic format of a database 
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DATABASE univ IS 


TYPE person; 

SUBTYPE employee; 

SUBTYPE supstaff; 

SUBTYPE faculty; 

SUBTYPE student: 

SUBTYPE graduate: 

SUBTYPE undrgrad: 

TYPE course: 

TYPE dept: 

TYPE enroll: 

TYPE rankname IS (assistant,associate full); 
TYPE semester IS (fall, spring. summer); 
TYPE ptgrade IS RANGE 0.0 … 4.0; 


TYPE person IS 


ENTITY 
name : SPRING (1 .. 25); 
ssn : STRING (1 .. 9) := "000000000"; 


END ENTITY: 


SUBTYPE employee IS person 


ENTITY 
homeaddr: STRING (1 .. 50), 
office SR UN GC (es 


phones : SET OF STRING (1 .. 7); 

salary : FLOAT; 

depdents : INTEGER RANGE O .. 10: 
END ENTITY; 


SUBTYPE supstaff IS employee 
ENTITY 
supvisor : employee WITHNULL; 
fulltime : BOOLEAN; 
END ENTITY; 


SUBTYPE faculty IS employee 
ENTITY 
rank : rankname; 
teaching : SET OF course; 
tenure : BOOLEAN := FALSE: 
fdept : dept; 
END ENTITY; 


Figure 2.1. The Sample Database, univ. (continued) 
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SUBTY PE student IS person 


ENTITY 
advisor : faculty WITHNULL; 
major : dept; 


enrolls :SET OF enroll; 
END ENTITY; 


SUBTYPE graduate IS student 
ENTITY 
advcomm : SET OF faculty: 
END ENTITY; 


SUBTYPE undrgrad IS student 


ENTITY 
gpa : ptgrade := 0.0: 
year : INTEGER RANGE 1..4:= 1; 


END ENTITY; 


TYPE course IS 


ENTITY 
title STRING A 1... 10); 
fdept : dept: 


fsemster : semester; 
credits : INTEGER: 
END ENTITY; 


TYPE dept IS 


ENTITY 
name STRING 20): 
head : faculty WITHNULL; 
END ENTITY: 
TY PE enroll IS 
ENTITY 
class : course; 
grade : ptgrade: 


END ENTITY; 
UNIQUE ssn WITHIN person; 
UNIQUE name WITHIN dept; 
UNIQUE title, fsemster WITHIN course; 
OVERLAP graduate WITH faculty; 


END univ; 


Figure 2.1. The Sample Database, univ. 
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Figure 2.2. Å Graphical Representation of the "univ" Database Schema. 





22 


declaration is given in Figure 2.3. Figure 2.1 is a complete example of a database 
declaration. In this figure, the square brackets denote that the content enclosed 
between them is optional. This syntactic convention is used throughout this 


thesis. 


DATABASE db-name IS 
[ non-entity-type-declarations | 
entity-type-declarations 
| entity-type-constraints | 


END [ db-name |; 


Figure 2.3. The Database-Declaration Format. 


The db-name refers to the unique name of the database being declared. 
The non-entity-type declarations are declarations of string types, scalar types, and 
numeric constants. The entity-type-declarations are declarations of entity types 
and subtypes, their functions and generalization hierarchies. The entity-type- 
constraints define those properties of the declared entity types and subtypes that 
must remain invariant under any operations on values of those types. The data 
declarations and constraints can be intermixed in any order. However, all types 
must be completely or partially declared before the name of the type can appear 
in another declaration. 

An entity-type declaration declares a new entity type. The two formats 


of entity-type declarations are shown in Figure 2.4. The first format is for a 
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complete entity-type declaration. The entity-type-name is an identifier that is the 
name of the entity being declared. The name must be unique among all type and 
subtype names within the database. The function-names are lists of one or more 
identifiers, separated by commas, that are the names of the functions that can be 
applied to the entity type being declared. If there is more than one identifier in 
the list. all function names on the list share the same function-type. The 
function-type may be strings, scalars (integer. floating-point. or enumeration 
type), entities. nonentities or sets of any of the above types. The second format is 
for a partial entity-type declaration. A partial entity-type declaration introduces 
only the type name to make it available as a function type for another entity type 


declaration. A function type must be declared. completely or partially, before it 


(1) TYPE entity-type-name IS 
ENTITY 


| function-names-1 : function-type; 
function-names-2 : function-type; 


function-names-n : function-type; | 


END ENTITY; 


(2) TYPE entity-type-name; 


Figure 2.4. The Entity-Type-Declaration Formats. 
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can be referencec. The reference of entity types in this manner provides the 
operational link in implementing the user-defined relationships of the functional 
model in Daplex. Whenever a partial declaration appears in an entity-type 
declaration, the complete declaration of that entity type must appear later in the 
same database declaration. 

The relations among the objects in Daplex are reflected in the 
generalization hierarchies. All types in the generalization hierarchy are entity 
types or entity subtypes. An example of the Person generalization hierarchy is 


presented in Figure 2.5. The example shows that the entity type, Person, forms 

















Figure 2.5. An Example of Generalization Hierarchy. 
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the root of a tree of built-in relationships. The nodes of the tree are entity 
subtypes. The names of subtypes must be unique. Subtypes are descendants of 
the root type or other subtypes. As the hierarchy is traversed downward from 
level to level, each subtype inherits all of the functions of its supertypes. 
Supertypes are ancestors of subtypes. The highest level ancestor (Person) is the 
root type. The formats for generalization-hierarchy declarations are depicted in 


Figure 2.6. 


(1) SUBTYPE subtype-name IS supertype-names 
ENTITY 
| function-names-1 : function-type: 
function-names-2 : function-type: 


function-names-n : function-type: | 


END ENTITY; 
(2) SUBTYPE subtype-name: 


Figure 2.6. The Generalization-Hierarchy-Declaration Formats. 


The subtype-name is an unique identifier of he subtype being declared. 
The supertype-names is a list of one or more names of entity types and subtypes 
of built-in relationships completely declared previously in an entity-type 
declaration or generalization-hierarchy declaration. The function-names and the 
function-types are the same as for an entity-type declaration. The two formats 
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also correspond directly to the entity type declaration formats. One important 
point to remember is that the complete declaration of all subtypes creates a 
built-in relationship. 

Nonentity-type declarations describe the primitive objects that declare 
data types other than entities. There are three nonentity types: the base type. 


the subtype and the derived type. Their formats are shown in Figure 2.7. 


base type : TYPE type-name IS type-definition: 


subtype : SUBTYPE subtype-name IS prev-name 
| scalar-type-constraints |: 


derived type : TYPE type-name IS NEW prev-name 
| scalar-type-constraints |: 


Figure 2.7. The Nonentity-Type-Declarations Format. 





The type-definition declares the data types of the nonentities. They may 
be user-defined or predefined. The predefined types are STRING, INTEGER, 
FLOAT, and BOOLEAN. User-defined types are strings, scalars (integer, 
floating-point. enumeration, and boolean), and rumeric constants. The prev- 
name refers to name of previously declared type or subtype. The scalar-type- 
constraint may be used to restrict the value of the nonentity type being declared. 
An example of a scalar-type-constraint is the restriction of "ptgrade” within the 


range from ‘‘0.0” to ‘‘0.4”’ 


27 


There are two types of constraints on entity types in Daplex: the overlap 
constraint and uniqueness constraint. An overlap constraint determines when an 
entity may legally belong to two or more terminal entity subtypes. A terminal 
entity subtype is a leaf in the generalization hierarchy. Terminal types are 
disjoint unless they are connected with the overlap constraint. The format of 
overlap-constraint declaration is shown in Figure 2.8. The entity-type-names is a 
list of one or more identifiers (separated by commas) of previously declared entity 
subtypes. An overlap constraint specifies that any database entity belonging to a 
subtype identified in the first list also may belong to each of the subtypes 


identified in the second list. 


OVERLAP entity-type-names WITH entity-type-names: 


Figure 2.8. The Overlap-Constraint Format. 


The uniqueness constraint specifies, for a particular entity type or 
subtype, a collection of functions whose values are unique for all entities in a 
database belonging to that type or subtype. The format for uniqueness-constraint 
is given in Figure 2.9. The entity-type-name is the name of a previously declared 
entity type or subtype. A restriction for values of functions is that uniqueness 
constraints only apply to values directly. Functions that derive their values from 
relationships with entities or nonentities are precluded from forming uniqueness 


constraints. 
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UNIQUE function-names WITHIN entity-type-name: 


Figure 2.9. The Uniqueness-Constraint Format. 


The Daplex DDL is to be discussed again in Chapter V. where the 
transformations between the Daplex and the ABDL structures are presented. 
2. The Data Manipulation Language 
The Daplex data manipulation language (DML) allows users to retrieve 
and update entities and function values in the database. The FOR EACH 
statement is the basis for Daplex data retrieval. It is used to specify the set of 
entities or values that are to be accessed and to loop over that set. The format of 


the FOR EACH statement is shown in Figure 2.10. The loop-label is an optional 


[ loop-label: | FOR | EACH | loop-parameter 
IN set-expression 
| WHERE boolean-expression | 
| BY order-clauses | 
| LOOP | 
loop-body 
END | LOOP |; 


Figure 2.10. The FOR EACH Statement Format. 
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label for the statement. The loop-parameter is an identifier. On each iteration of 
the loop, loop-parameter is assigned a member of the set of database values. The 
set-expression specifies a set of unique string, scalar. or entity values. The 
boolean-expression is any expression that yields a boolean value. It restricts the 
members of set-expression over which the loop iterates. Order-clause is a list of 
one or more clauses that define the order of iteration through the set. The loop- 
body may include a sequence of one or more DML statements that are executed 
once for each iteration of the loop. 

For printing and formatting the display of query results. the 
PROCEDURE-CALL statement is used. There are several formats available in 
the original Daplex data language. In our implementation, only the PRINT and 
PRINT LINE statement formats, shown in Figure 2.11. are implemented. These 
statements print the values of each of the expressions using default formats of the 
expressions. The difference between the two statements is that PRINT LINE 


outputs a carriage return after all of the expression values are printed. 


(1) PRINT ( expressions ); 
(2) PRINT LINE ( expressions ); 


Figure 2.11. The PRINT and PRINT LINE Statement Formats. 
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For database updates. there are the ASSIGNMENT. CREATE. 
INCLUDE, EXCLUDE, DESTROY and MOVE statements. The formats of these 


statements are listed in Figure 2.12. The ASSIGNMENT statement is used to 


(1) ASSIGNMENT statement: 
single-valued-function-expression := expression: 


(2) CREATE statement: 
CREATE NEW entity-type-names 
| (function-name-1 => expression-1, 
function-name-2 => expression-2, 


function-name-m => expression-m) |: 


(3) INCLUDE statement: 
INCLUDE expression INTO set-valued-function-expression; 


(4) EXCLUDE statement: 
EXCLUDE expression FROM set-valued-function-expression; 


(5) DESTROY statement: 
DESTROY (entity-valued-expression): 


(6) MOVE statement: 
MOVE entity-valued-expression 
[ FROM entity-type-names | 
[ INTO entity-type-names 
| (function-name-1 => expression-1, 
function-name-2 => expression-2, 


function-name-m => expression-m) | E 


Figure 2.12. The Database-Update-Statement Formats. 
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assign or modify a value to a single-valued function. The CREATE statement is 
used to create a new database entity. The INCLUDE statement adds either a 
single value or a set of values to a set-valued function. The EXCLUDE statement 
is used to remove a single value or a set of values from a set-valued function. The 
DESTROY statement removes an entity from the database. The MOVE 
statement changes the subtypes to which an entity belongs. The effect is the 
removal of the entity from each subtype in the FROM list and the addition of the 


entity to each subtype in the INTO list. 


B. THE TARGET DATA LANGUAGE - ABDL 
1. The Attribute-based Data Model 
The data structures of the attribute-based data model include: database. 
file. record. attribute-value pair, keyword. attribute-value range. directory 
keyword, non-directory keyword, directory, record body. predicates. and query. 
Informally. a database consists of a collection of files. Each file contains a group 
of records characterized by a unique set of directory keywords. An example of a 


record for a “Person” file is shown in Figure 2.13. A record is composed of two 


(<FILE, Person>, <NAME, Charlie Brown>. <SSN, 123456789>, 
{ Cartoon character }) 


Figure 2.13. An Example of a Record. 
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parts. The first part of a record is a collection of attribute-value pairs Or 
keywords. The attribute of an attribute-value pair defines the specific quality or 
the certain characteristics of the value. In our example. the attribute-value pair, 
<NAME, Charlie Brown>, has an attribute “NAME” and the value of the 
attribute is “Charlie Brown” Each record can only have one value associated with 
a corresponding attribute in the attribute-value pair. Further. no two attribute- 
value pairs have the same attribute in a record. i.e.. all attributes must be unique 
in a record. Certain attribute-value pairs of a record are called directory keywords 
since their attribute values or attribute-value ranges are kept in a directory for 
identifying the records (files). <FILE. Person> in Figure 2.13 is an example of a 
directory keyword. Those attribute-value pairs that are not kept in the directory 
are called non-directory keywords. The second part of the record is the record 
body which contains only textual information. The record body in our record is 
the **Cartoon character” enclosed within a pair of curly brackets. 

The records of a database may be identified by keyword predicates. A 
keyword predicate is a 3-tuple consisting of a directory attribute. a relational 
operator. and an attribute value. e.g.. (NAME = Charlie Brown). A query 
combines keyword predicates in disjunctive normal form. An example of a query 
is given in Figure 2.14. The query will be satisfied by all records of the Person file 
where the value of the attribute NAME is "Charlie Brown” or "Beetle Bailey” 


use parenthesis for bracketing conjunctions in a query. 
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((FILE = Person) and (NAME = Charlie Brown)) or 
((FILE = Person) and (NAME = Beetle Bailey)) 


Figure 2.14. An example of a Query. 





2. The Attribute-based Data Language 

The attribute-based data language (ABDL) supports five primary 
database operations: INSERT, DELETE. UPDATE. RETRIEVE. and 
RETRIEVE-COMMON. A request in ABDL is a primary operation with a 
qualification. A qualification specifies the part of the database that is to be 
operated on. Two or more requests may be grouped together to form a 
transaction. 

The INSERT request inserts a new record into the database. The 
qualification of an INSERT request is a list of keywords with or without a record 
body. An example of a INSERT request is shown in Figure 2.15. This request 


inserts a new record to the Person file where the value of the attribute NAME is 


INSERT (<FILE, Person>, <NAME, Charlie Brown> 
<SSN, 123456789>, <AGE, 35>) 


Figure 2.15. An Example of INSERT Request. 


Charlie Brown. the value of the attribute SSN is 123456789, and the value of the 
attribute AGE is 35. 

A DELETE request removes one or more records from a database. The 
qualification of a DELETE request is a query. An example is shown in Figure 2.16 
to illustrate the DELETE request. This request removes all of the records from 


the Person file whose age is greater than 60. 


DELETE ((FILE = Person) and (AGE > 60)) 


Figure 2.16. An Example of DELETE Request. 


The UPDATE request modifies records of the database. The qualification 
of an UPDATE request consists of two parts, the query and the modifier. The 
query specifies which records of the database are to be modified. The modifier 
specifies how the records being modified are to be updated. An example of the 
UPDATE request is shown in Figure 2.17. This request modifies all of the records 
in the Person file by incrementing the age by one. The query is (FILE = Person) 


and the modifier is (AGE = AGE + 1). 


UPDATE (FILE = Person) (AGE = AGE + 1) 


Figure 2.17. An Example of UPDATE Request. 
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A RETRIEVE request retrieves records from the database. The 
qualification of a retrieve request consists of a query, a target-list, and an optional 
by-clause. The query specifies which records are to be retrieved. The target-list 
consists of a list of output attributes. It may also consist of an aggregate 
operation. ie. AVG, COUNT, SUM, MIN, MAX, on one or more output 
attributes. The optional by-clause may be used to group records when an 
aggregate operation is specified. Figure 2.18 is an example of the RETRIEVE 
request. This request lists the SSN. NAME and AGE of all records in the Person 
file whose AGE value is greater than seventeen. The query is (FILE = Person) 
and (AGE > 17), the target-list is (SSN, NAME, AGE), and the by-clause is by 


SSN 


RETRIEVE ((FILE = Person) and (AGE > 17)) 
(SSN. NAME, AGE) by SSN 


Figure 2.18. An Example of RETRIEVE Request. 


The last request, RETRIEVE-COMMON, is used to merge tvo files by 
common attribute-values. Logically, the RETRIEVE-COMMON request can be 
considered as a transaction of two retrieve requests that are processed serially in 
the general form shown in Figure 2.19. The common attributes are attribute-1 
(associated with the first retrieve request) and attribute-2 (associated with the 
second retrieve request). 
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RETRIEVE (query-1) (target-list-1) 
COMMON (attribute-l. attribute-2) 
RETRIEVE (query-2) (target-list-2) 


Figure 2.19. The General Form of RETRIEVE-COMMON Request. 


In Figure 2.20. an example of RETRIEVE-COMMON from a population census 
example illustrates this request. This example finds all of the records in the 
CanadaCensus file with population greater than 100.000. finds all the records in 
the USCensus file with population greater than 100.000. identifies records of 
respective files whose population figures are common. and returns the two city 
names whose cities have the same population figures. ABDL provides five 
seemingly simple database operations, which are nevertheless capable of 


supporting complex and comprehensive transactions. 


RETRIEVE ((FILE = CanadaCensus) and 
(POPULATION >= 100000))(CITY) 

COMMON (POPULATION, POPULATION) 

RETRIEVE ((FILE = USCensus) and 
(POPULATION >= 100000))(CITY) 


Figure 2.20. An Example of RETRIEVE-COMMON Request. 
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Il. THE IMPLEMENTATION PROCESS 


A. THE DESIGN GOALS 

During the early stages of the design of MLDS. we have decided that there 
should not be any changes to the kernel data model and the kernel data language. 
i.e.. the attribute-based data model and ABDL. Instead, our implementation 
resides entirely in the host computer system. All user transactions in Daplex are 
processed in the Daplex interface and transformed into ABDL transactions format 
before being forwarded by KC to KDS for processing. 

In addition. we intend to make our interface transparent to the user. For 
example, a user with previous experience in Daplex could log onto our system, 
issue a Daplex request and receive result data in the functional format. The user 


requires no training in ABDL procedures prior to utilizing the system. 


B. THE IMPLEMENTATION STRATEGY 

Due to the large size of the MLDS project and the time constraint on the 
thesis students involved, a suitable implementation strategy must be employed. 
We have predicated our choice of the strategy on minimizing the ‘‘software- 
crisis” as explained by Boehm [Ref. 20]. The strategy we have decided upon is 
the level-by-level, top-down approach. The system is initially thought of as a 
“black box” that accepts Daplex transactions and then returns the appropriate 
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results. The “black box” is then decomposed into its four modules (i.e.. LIL. 
KMS, KC, and KFS). These modules, in turn, are further decomposed into the 
necessary functions and procedures to accomplish the appropriate tasks. 

The design of the language interface uses a Systems Specification Language 
(SSL) [Ref. 21] extensively. SSL has permitted us to approach the design from a 
very high-level, abstract perspective. Furthermore, SSL has allowed us to make 
an easy transition from the design phase to the implementation phase. 

We have used the C programming language (Ref. 22) to implement the 
language interface. The greatest advantage of using C is the programming 
environment that it resides (te, the UNIX operating system). This 
environment has permitted us to partition the Daplex interface and then 
manage the parts in an effective and efficient manner. One disadvantage with 
using C is its poor error diagnostics that makes debugging difficult. There is an 
on-line debugger available for use with C in UNIX for debugging. We have 
avoided this option and instead used conditional compilation and diagnostic 
print statements to aid in the debugging process. Another criticism on C is that 
programs written in C are often cryptic. A C program is usually less readable 
than a program written in other conventional programming languages. We have 
made every effort to ensure that the C code we have written to be easy to read 
and comprehend. For instance, we often write the code with extra lines to avoid 
shorthand notations available in C. These extra lines have made the 


difference between comprehensible code and cryptic notations. We have also 
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intentionally minimized the interaction between procedures to ease the burden 


of maintainabilitv. 


C. THE DATA STRUCTURE 
The Daplex language interface has been developed as a single user system 
that at some point will be updated to a multi-user system. Two different 
concepts of the data are used in the language interface : (1) Data shared by all 
users, and (2) Data specific to each user. The reader must realize that the data 
structures used in our interface and described below have been deliberately 
made generic. Hence. these same structures support not only our Daplex 
interface, but the other language interfaces as well. i.e.. DL/I. CODASYL-DML. 
and SQL. 
1. Data Shared by All Users 
The data structures that are shared by all users are the database 
schemas defined by the users thus far. In our case, these are the functional 
schemas, consisting of entities (types and subtypes) and the relationships 
(functions) between the entities. These are not only shared by all users, but 
also shared by the four modules of the MLDS, i.e., LIL, KMS, KC, and KFS. 
Figure 3.1 depicts the first data structure used to maintain data. 
It is important to note that this structure is represented as a union. 


Hence, it is generic in the sense that a user can utilize this structure to support 


SQL, DL/I, CODASYL-DML, or Daplex needs. However, we concentrate 
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union dbid node 


i 


struct rel dbid node *dn rel: 
struct hie dbid node *dn hie: 
struct net dbid node *dn net: 
struct fun dbid node *dn fun: 


) 


Figure 3.1. The dbid node Data Structure. 


only on the functional model. In this regard. the fourth field of this structure 
points to a record that contains information about a functional database. 
Figure 3.2 illustrates the structure of this record. 

The fdn name is simply a character array containing the name of the 
functional database. The fdn nonentptr field holds a pointer to the base-type 
nonentity node, and the fdn num nonent is an integer value that represents the 
number of these nodes in the database. The fdn entptr points to the entity node, 
and as before the field that immediately follows lles an integer value 
representing the number of such nodes. The ídn subptr is a pointer to the 
generalized entity subtype node and the integer field following it keeps the 
number of these generalized subtype nodes in the database. The fdn_ nonsubptr is 
a pointer to the nonentity subtypes and the integer following it keeps the number 
of such nodes in the database. The fdn nonderptr points to the nonentity derived 


type node and the number of these nodes in the database is kept in the next field. 
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struct fun dbid node 


{ 
char fdn name[DBNLength + 1]; 


struct ent non node "fdn nonentity, 
int fdn num nonent: 

struct ent node *fdn entity; 

int fdn num ent: 

struct gen sub node *fdn subptr; 
int fdn num gen; 

struct sub non node *fdn nonsubptr; 
int fdn num nonsub: 

struct der non node *fdn nonderptr; 
int fdn num der: 

struct overlap node *fdn ovrptr: 
int fdn num ovr; 

struct fun dbid node *fdn next db: 


i 


Figure 3.2. The fun dbid node Data Structure. 


The fdn ovrptr and fdn num ovr are new fields added to the fun dbid node 
structure. The fdn ovrptr is a pointer to the structure overlap node which 
contains the overlapping constraints of the ras and the fdn num ovr keeps 
track of the number of such constraints. Finally, the last field points to the next 
functional database node. 

Figure 3.3 depicts the entity node structure. The first field of this 
structure is a character array which holds the name of the entity, and the second 
field is an integer that is used for keeping track of the last unique number 


assigned to each entity type in the database. The third field is an integer 
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struct ent node 


{ 


char — en namelENLength — 1): 


int en last ent id: 

int en num funct: 

int en terminal: 

struct function node *en ftnptr: 
struct ent node å en next sent; 


Figure 3.3. The ent node Data Structure. 


representation of the number of functions associated with the entitv that this 
node represents. For instance. the “person” entity has two functions associated 
with 1t. “name” and “ssn” The fourth field is an integer representation of a 
boolean function for indicating whether the entity is a terminal type. An entity 
type is a terminal type if it is not a supertype to any subtype. The en ftnptr is a 
pointer to the function node associated with this entity node. The last field 
points to the next entity node in the database. 

The structure of the gen sub node is shown in Figure 3.4. The first field, 
similar to previous structures. holds the name of the generalized entity subtypes. 
An example applied to the univ data base is “employee” The gsn num funct field 
holds the number of functions associated with the entity subtype, and the 
gsn terminal field is an integer representation of a boolean function and holds a 


“1” if the generalized subtype entity is not a supertype. The gsn entptr field 
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struct gen sub node 


char gsn name[ENLength + 1}; 


int gsn num funct; 

int gsn terminal: 

struct ent node list *gsn entptr; 

int gsn num ent: 

struct function node *gsn ftnptr: 
struct sub node list ”gsn subptr; 

int gsn num sub; 

struct gen sub node *gsn next genptr; 


dE 


Figure 3.4. The gen sub node Data Structure. 


holds a pointer to its supertype which is of entity type. In the case of 
“employee” , the supertype is “person The next field indicates the number of 
entity supertypes. The gsn ftnptr field holds a pointer to a function associated 
with the generalized subtype, for instance, "salary” The gsn subptr field holds a 
pointer to the subtype supertype. For example, the supertype for the subtype 
"supstaff” is "employee” of the number of such subtype supertypes. The final 
field simply points to the next gen sub node. 

The ent non node record is shown in Figure 3.5, and contains 
information about each nonentity base-type in the database. The first field of the 
record holds the name of the nonentity node, for example, "rankname” holds the 


AN 


“1” , integer; “e” , 


character that indicates the type of nonentity node, either 
enumeration; “f? , floating point; “s” , string: “b” . boolean. The next field 
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struct ent non node 


{ 


char enn name[ENLength + 1]; 


char enn type; 

int enn total length; 

int enn range: 

int enn num values; 

struct ent value *enn value: 

int enn constant: y 

struct ent non node *enn next node; 


Figure 3.5. The ent non node Data Structure. 


contains an integer that indicates the maximum length of the base-type value. 
The enn range field contains an integer representation of a boolean value, a "1" 
or “0” , that indicates whether or not there is a range associated with the 
nonentity node. For example, from Figure 2.1, the nonentity “ptgrade” has a 
range of from 0.0 to 4.0, while “rankname” is without a range. The 
enn num values field contains an integer that represents the number of different 
values that the nonentity can assume. The next field contains a pointer to the 
actual value of the base-type. As an example, “rankname” can assume three 
values, the enn num values would have a value *3” stored and the enn value 
would point to a link list which contains the three values “assistant” , 
“associate”” , and “full” If a value range is associated with the nonentity node. 


indicated by enn range field, then the enn num values would be two and the 
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enn value will point to a linked list which contains the lower and upper bounds of 
the range. The enn constant field contains an integer representation of a boolean 
value that indicates if the actual value of the base-type is a constant. There are 
no constants in the univ database, but, as an example, the value of the base-type 
could assume the constant value of pi (3.14159265). The last field contains a 
pointer to the next nonentity node. 

The sub non node is shown in Figure 3.6. This structure is almost 
identical in form and similar in purpose to the ent non node of Figure 3.3. The 
main difference between the two structures is that the ent non node is for a 
base-type nonentity and the sub non node is for a subtype nonentity. The 
difference in form between the two structures is the absence of constants in the 


sub non node. Maintaining two separate constant lists would be redundant, 


hence the constants are found only in the ent non node. 


struct sub non node 


{ 


char snn name[ENLength + 1); 


char snn type; 

int snn total length; 

int snn range; 

int snn num values; 

struct ent value *snn value; 
struct sub non node *snn next node; 


T 


Figure 3.6. The sub non node Data Structure. 


46 


The next node. similar to both the ent non node and the sub non node. 


is the der non node. shown in Figure 3.7. The der non node is identical in 


structure to the sub non node and differs in function in that it applies to the 


derived nonentity subtypes. 


struct der non node 


{ 


char 
char 
int 
int 
int 
struct 
struct 


M 


dnn name[ENLength + 1]: 

dnn type: 

dnn total length: 

dnn range: 

dnn num values; 

ent value *dnn value: 

der non node *dnn next node: 


Figure 3.7. The der non node Data Structure. 


The structure of the overlap node is shown in Figure 3.8. The first field 


refers to the name of the base type for the overlapping entities. For example, in 


the case of overlapping “graduate” with “faculty” , the base type name is 


person" The second field holds a pointer to the list of terminal subtypes that are 


overlapped. The third field keeps a count of overlapping subtypes in the list. 


The last field holds a pointer to the next overlap node. 


The structure of the function node is shown in Figure 3.9. The 


function node defines the structures for each function-type declaration. The first 


field of the function node is a character array which holds the name of the 
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struct overlap node 


char base type name[ENLength+1]; 


struct sub node list teniptr: 
int num sub node: 
struct overlap node *next: 


i 


Figure 3.8. The overlap node Data Structure. 


function. The second field is a character that holds the function type. The value 
of this field could be “f°, "i" . Vs". Úb' or “e” corresponding to the types float, 


integer, string, boolean, or entity respectively. The fn range field indicates 


struct function node 


{ 


char fn name[ENLength+1]; 
char fn type; 


int fn set; 

int fn range: 

int fn total length: 

int fn num value; 

struct ent value *fn value; 
struct ent node *fn entptr; 
struct gen sub node *fn subptr; 
struct ent non node *fn nonentptr; 
struct sub non node *fn nonsubptr; 
struct der non node *fn nonderptr: 
int fn entnull; = 

ınt fn unique: 

struct function node *next; 


y; 


Figure 3.9. The function node Data Structure. 
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whether the function has a range of values. and the fn set field indicates whether 
the function is a set-valued function. Å *0” in this field would indicate that the 
function is single-valued. 

The fn total length field indicates the maximum length, the 
fn num value field indicates the number of values, and the fn value field would 
hold a pointer to the actual values. The next five fields hold pointers to the type 
to which a particular function belongs. For example, the function “head” in the 
entity “dept” would have the fn subptr pointing to the generalized subtype 
“faculty” and the other four type field pointers will be null. When the function is 
an entity-valued function, the fn entnull field would indicate whether the 
function may have a null value. The fn unique field indicates whether an 
uniqueness constraint is applicable to the function. It is always initialized to ‘‘O”’ 
and set to “1” only when an uniqueness constraint is specified. For example, the 
“ssn” function in the “person” entity would have this field set to “1” The final 
field simply contains a pointer to the next function. 

The ent node list and sub node list data structures are shown in Figure 
3.10. These two structures are used for keeping linked list of pointers to entity 
nodes and generalized subnodes , respectively. 

The data structure of ent value is shown in Figure 3.11. It is used for 
keeping a linked list of entity values. As the length of an entity value is not a 
constant, the ev value field is just a character pointer. Exact size of memory 


could be allocated at the time when an entity value is to be stored. 
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struct ent node list 


{ 


struct ent node *entptr; 
struct ent node list * next; 


IF 


struct sub node list 
struct gen sub node *subptr; 
struct sub node list *next; 


L 


Figure 3.10. The ent node list and sub node list Data Structures. 





struct ent value 


{ 


char *ev value: 
struct ent value *next; 


ip 


Figure 3.11. The ent value Data Structures. 


2. Data Specific to Each User 
This category of data represents information needed to support each 
user's particular interface needs. The data structures used to accomplish this 
can be thought of as forming a hierarchy. At the root of this hierarchy is the 
data structure, user info, that maintains information on all of the current users of 
a particular language interface (see Figure 3.12). The user info data structure 
holds the ID of the user, a union that describes a particular interface, and a 


pointer to the next user. The union field is of particular interest to us. As 
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struct user info 


{ 
char  uid{UIDLength + 1]: 
union li info li type: 
struct user info "next user, 


) 


Figure 3.12. The user info Data Structure. 


noted earlier. a union serves as a generic data structure. In this case. the union 
can hold the data for a user accessing either a CODASYL-DML language 
interface layer(LIL), a DL/I LIL. an SQL LIL. or a Daplex LIL. The li info 
union is shown in Figure 3.13. 

We are only interested in the data structures containing user 
information which relates to the Daplex language interface in this section. The 


structure used is referred to as dap info and is depicted in Figure 3.14. The 


union li info 


{ 


struct sql info li sql; 
struct dli info li dli; 
struct dml info li dm]; 
struct dap info li dap: 


) 


Figure 3.13. The li info Data Structure. 


ol 


first field of this structure, dpi curr db. is itself a record and contains currency 
information on the database being accessed by a user. The second field, dpi file, 
is also a record. The file record contains the file descriptor and file identifier of a 
file of Daplex transactions, either requests or database descriptions. The next 
field, dpi dml tran. is also a record, and holds information that describes the 
Daplex transactions to be processed. This includes the number of requests to be 
processed, the first request to be processed. and the current request being 
processed. The fourth field of the dap info record. dap operation. is a flag that 
indicates the operation to be performed. This may be either the loading of a new 


database. or the execution of a request against an existing database. The next 


struct dap info 


{ 


struct curr db info dpi curr db; 
struct file info dpi file; 
struct tran info dpi dml tran; 
int dap operation; E 
struct ddl info *dpi ddl files; 
union kms info dpi kms data: 
union kfs info dpi kfs data; 
union ke info dpi ke data; 
int dap error; Sin, 

int dap answer; 

int dap buff count; 


he 


Figure 3.14. The dap info Data Structure. 
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field, dpi ddl files, is a pointer to a record describing the descriptor and template 
files. These files contain information about the ABDL schema corresponding to 
the current functional database being processed, i.e., the ABDL schema 
information for a newly defined functional database. The next three fields, 
dpi kms data, dpi kfs data and dpi ke data. are unions that contain 
information required by KMS, KFS and KC. respectively. The next field, error, is 
an integer value representing a specific error type. The next field, answer. is used 
by LIL to record answers received through its interaction with the user of the 
interface. The last field. buff count, is a counter variable used in KC to keep 


track of the result buffers. 
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IV. THE LANGUAGE INTERFACE LAYER 


The function of the language interface layer (LIL) module is to control the 
order in which the other modules are called, and allow the user to input 
transactions from either a file or the terminal. Å transaction may take the form 
of either a database description (DBD) of a new database, or a Daplex request 
against an existing database. A single transaction may contain multiple requests. 
allowing a group of requests to perform a single task. For example. several 
“atomic” statements, those statements that are executed as an indivisible action 
with respect to the database. could be executed together as a single transaction. 

The mapping process occurs when LIL sends a single transaction to KMS. 
After the transaction has been received by KMS, KC is called to process the 
transaction. Control always returns to LIL, where the user may either continue 
with another transaction or close the session by exiting to the operating system. 

LIL is menu-driven. and when the transactions are read from either a file or 
the terminal, they are stored in the dap req info data structure. If the 
transactions are database descriptions, they are sent to KMS in sequential order. 
If the transactions are Daplex requests, the user is prompted by another menu to 
selectively choose an individual request to be processed. The menus provide an 


easy and efficient way for the user to view and select the methods of request 
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processing desired. Each menu is tied to its predecessor. so that by exiting one 
menu the user is moved up the "menu tree” This allows the user to perform 


multiple tasks in one session. 


THE LIL DATA STRUCTURES 

LIL uses three data structures to store the user's transactions and control the 
transaction sent to KMS. It is important to note that these data structures are 
shared by both LIL and KMS. 

The first data structure is named tran info and is shown in Figure 4.1. The 
first field of this record. ti first req, is the pointer to the first request data 
structure that contains the union of all the language requests of MLDS (see 
Figure 4.2). The first request can originate from either a file or a terminal. The 
second field of tran info is a pointer to the current transaction, set by LIL to tell 
KMS the precise transaction to process next. The third field contains the number 


of transactions currently in the transaction list. This number is used for loop 


struct tran info 


{ 


union req info ti first req; 
union req info ti curr req; 
int ti no req; 


Je 


Figure 4.1. The tran info Data Structure. 
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union reg info 
{ 
struct rel req info “ri rel req; 
struct hie req info "ri hie neg 
struct net req info *ri net req; 
struct dap req info "ri dap reg: 
struct ab reg info ri ab reg; 


= 


Figure 4.2. The req info Data Structure. 





control when printing the transaction list to the screen. or when searching the list 
for a transaction to be executed. 

The second data structure used by LIL. req info, is a union of the language 
requests of MLDS, and is shown in Figure 4.2. It serves a routing control 
function, in that it routes a transaction request to the appropriate database 
language. In this thesis, we are concerned only with the the fourth field of this 
structure, which contains a pointer to the dap req info data structure (see Figure 
4.3), each copy representing a Daplex user transaction. 

The third data structure used by LIL is named dap req info. Each copy of 
this record represents a user transaction, and thus, is an element of the 
transaction list. The dap req info data structure is shown in Figure 4.3. The 
first field of this record, dap req, is a character string that contains the actual 
Daplex transaction. The second field, dap req len, contains the length of the 


transaction. It is used to allocate the exact, and therefore minimal, amount of 
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struct dap req info 


{ 


char *dap reg; 


int dap req len: 

struct temp str info *dap in reg; 
struct dap reg info *dap sub reg; 
struct dap req info K dap next reg; 


L 


Figure 4.3. The dap req info Data Structure. 


memory space for the transaction. The third field, dap in req, is a pointer to a 
list of character arrays that each contains a single line of one transaction. After 
all lines of a transaction have been read. the line list is concatenated to form the 
actual transaction. dap req. If a transaction contains multiple requests, the 
fourth field, dap sub req, points to the list of requests that make up the 
transaction. In this case, the field dap in req is the first request of the 
transaction. The last field, dap next req, is a pointer to the next transaction in 


the list of transactions. 


B. FUNCTIONS AND PROCEDURES 

LIL makes use of a number of functions and procedures in order to create the 
transaction list, pass elements of the list to KMS, and maintain the database 
schemas. These functions and procedures had been implemented by Anthony and 


Billings [Ref. 11]. We have made some changes and additions to the original 
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implementation. As the main structure of the LIL module remains basically 
unchanged, vve do not repeat the description of the LIL processes here. Instead, 
vve document the changes and additions in this section. The updated C code 
implementation of the LIL module is listed in Appendix C. 
1. Changes to the Original Implementation 

As mentioned in Chapter I. there are four similar sets of software 
modules, LIL, KMS. KC. and KFS, required for the each of the four different data 
language interfaces. Due to the similaritv between these interfaces, it is not 
surprising that the corresponding modules in different interfaces are very similar. 
The detailed codes of the corresponding modules may not be identical, but the 
functionalities are mostly the same. As a result, identical procedure names were 
used for the similar procedures in different implementations of the interfaces. For 
example, every LIL module in the interfaces provides a procedure that allows the 
user to load in a new database and all implementations used load new as the 
procedure name. This posts no problems when the interfaces are compiled and 
run individually. However, if the four interfaces are to be integrated, it is 
impossible to link four different procedures having the same name, load new. 
There are quite a number of these similar procedures in LIL. To avoid this 
problem for later integration of MLDS, we prefixed the procedure names in the 
Daplex interface by “f ” which stands for functional. The procedure names that 
were changed are f language interface layer, f load new, f process old, 


f kernel controller, f kernel mapping system, f dbd to KMS, f free request, 
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f rd temp str info. Í read transaction file. f read terminal, and i regdgile. 
The C code source files that were affected are main.c, lil.c. lilcommon.c. and 
readrtnes.c (see Appendix C). 

While going through the program codes to check for procedures with 
identical names. we found three procedures not only with identical name but 
identical functionality also. These procedures are get new user. get ans. and 
to caps. In this case. there is no necessity to duplicate the procedures of identical 
function with different names in different interfaces. There are extracted from 
LIL and included in the common routine file. mdbsgenerals.c. As get ans was the 
only procedure in the source file getans.c. and get new user was the only 
procedure in the source file getuser.c. these two files were deleted. The procedure 
to caps was removed from the source file lilcommon.c. 

2. Additional Procedures 

For the interface between MLDS and MBDS. template files and 
descriptor files are required. These files are to be created in the LIL module of 
MLDS. Procedures for creation of template and description files have been 
implemented for all of the interfaces except the Daplex interface [Ref. 23]. In this 
section, we describe the implementations of these procedures for the Daplex 
interface. 

a. Creating the Template File 

A template is a specification of record structure that the database 


administrator uses to characterize the organization of records in a file for an 
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attribute-based database. A record is defined to be a collection of attributes. We 
can describe the structure of a record in terms of the number of attributes. the 
names of the attributes, and the associated data types and values. In doing so. 
we can separate the description of the record away from the actual records and 
keep the record description in a template. The template can later be used for 
determining and specifying the characteristics of an attribute and its relation with 
other attributes in a record. When the records are collected to form a file. the file 
structure would have the same attributes and similar relations among records in 
the same file. Because the structural information is maintained in a single 
template. a file structure can be reorganized by simply changing the template. 
The template files in the interfaces have a specific structure. The 
format of a template file for a database with n files, hence n templates, is shown 


in Figure 4.4. A typical template description for a record with m attributes is 


Database-name 

Num ber-of-templates 
Template-description-1 
Template-description-2 


Template-description-n 


Figure 4.4. The Template File Format. 
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given in Figure 4.5. The first field gives the number of attributes in the template. 
Note that this number is always one more than the number of attributes in the 
record, i.e., m + 1. This is because a constant attribute, FILE, is always added 
before the actual attributes of the record. The data type in the template 
description is a single character field which can be s, i or f representing string, 
integer or float type. 

The template file for the Daplex interface is created by transforming 
the Daplex data structure into the template file structure. First, the data 
structure fun dbid node in Figure 3.2 is read to get the database name and the 
number of templates in the database. The number of templates is obtained by 
adding the number of entity type nodes, fdn num ent, and the number of 
generalized subnodes, fdn num gen, in the database. Subsequently, the two 


linked list structures, ent node in Figure 3.3 and gen sub_ node in Figure 3.4, are 


Number-of-attributes 
Template-name 

FILE S 
attribute-1 data-type-1 
attribute-2 data-type-2 


attribute-m data-type-m 


Figure 4.5. A Typical Template Description. 
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traversed to extract the required information for each entity type node and 


generalized subnode. Figure 4.6 represents an algorithm for the transformation. 


The C code implementation is listed in Appendix B. 





Assertions: 
1. The Daplex database D has m entity-type nodes {Z,, E,.....£E,}. 
2. The Daplex database D has n generalized subnodes Í5,, S,, . . ., S,). 
3. Each entity-type node E.i=1,..., m, has the entity-type name E,-name. 
4. Each generalized subnode $..1= 1,...,n, has the entity-type name S,-name. 
5. Each E,,i=1,...,m, has A, attributes. 
6. Each S,i=1....,n, has A, attributes. 
7. Each attribute A,,, j — l...., Ag Or A, has the attribute name A, -name. 
Sc a outer T Ar or As has the attribute type A, -type. 
Algorithm: 


write Database-name 
write Number-of-templates 


/* Repeat for each entity-type node in database */ 
for each entity-type node E in database D do 


write (A, + 1) /* Number of attributes */ 
write E-name /* Entity name */ 


write "FILE s' 
/* Repeat for each attribute in the entity-type node */ 
for each attribute A; , in entity-type node £E, do 


write A;,-name A,,-type /* Attribute name, type */ 


) 


/* Repeat for each generalized subnode in database */ 
for each generalized subnode S, in database D do 


write (A, + 1) /* Number of attributes */ 


write $-name * Entity subtype name * 
write "FILE s" / / 


/* Repeat for each attribute in the generalized subnode " / 
for each attribute A,;, in generalized subnode S, do 


write A, -name A, type /* Attribute name, type */ 


Figure 4.6. Algorithm for Creating the Template File. 
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b. Creating the Descriptor File 

While the template file is used to define the record structures of the 
database, the descriptor file is used to reflect the semantic meanings and intended 
use of the data. In the descriptor file, the user specifies the attributes (or fields) to 
be regarded as ‘key’ or “indexing” attributes (fields). MBDS, i.e., KDS, utilizes 
this information to create the index (cluster) arrangements that permit the most 
rapid and efficient response to transactions sent to the database system. 

The descriptor files in the interfaces also has a specific structure. The 


format of a descriptor file that has n descriptors is shown in Figure 4.7. The first 


Database-name 

FILE B 

! Name-of-first-entity 

! Name-of-second-entity 


! Name-of-last-entity 
Q 
Descriptor-definition-1 
Descriptor-definition-2 


Descriptor-definition-n 


$ 


Figure 4.7. The Descriptor File Format. 
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entry in the format gives the name of the database. The “FILE B’ on the second 
line is a constant that must always be there. Subsequently, for each entity (entity 
type or subtype) in the Daplex database, a line is added beginning with an 


Ben 


exclamation mark and a blank space. followed by the entity-type name. At 
the end of this list, an at-sign “@*”' is added to indicate the end of the basic set of 
descriptors for a given database. It is then followed by a sequence of descriptor 
definitions. The $ sign at the last line of the format indicates the end of the 
descriptor file. Each descriptor definition in the descriptor file is expressed in 
terms of the function. its associated descriptor type and data type. and followed 
by the Range-or-Equality-Statements as shown in Figure 4.8. The descriptor tvpe 
can be either A or B which reflects the user's choice of designating the indexes for 
a function as either a range (A) or an equality (B). The data type can be i, sor f, 
representing integer, string or float type. The Range-or-Equality-Statements 


represents a sequence of statements reflecting the selected range or equality values 


depending on the descriptor type specified. If the descriptor type is A, then the 


Attribute Descriptor-type Data-type 


{ 


Range-or-Equality-Statements 
) 
Q 


Figure 4.8. The Typical Descriptor Definition. 
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sequence of statements are just lines of two numbers specifying the lower limit 
and upper limit of the selected range. An example of a descriptor definition with 
range type statements is shown in Figure 4.9. Note that although more than one 


range can be specified. the ranges must be mutually exclusive. 





salary A f 
1000.00 2000.00 
3000.00 3500.00 
5000.00 9000.00 

a 


Figure 4.9. An Example of a Range Type Descriptor. 


Figure 4.10 gives an example of an equality type descriptor. An 
equality type statement starts with an exclamation mark followed by an exact 
function value. In our example, the descriptor is for establishing equality index 


terms for selection of the function dept to include the departments specified. 


dept B S 

! Computer science 

! Electrical engineering 
! Mathematics 


! Weapon systems 
@ 


Figure 4.10. An Example of an Equality Type Descriptor. 
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Unlike the creation of the template file which is accomplished without 
the user's knowledge or participation, the creation of the descriptor file involves 
the user. The user must respond to a sequence of prompts in order to determine 
the set of descriptors to include in the descriptor file. It is, in fact, the user’s 
detailed knowledge of the database and intended uses of the database that will 
permit an effective choice of the descriptors. 

The algorithm for creating the descriptors of a Daplex database is 
given in Figure 4.11. This algorithm is basically similar to the those for the other 
three interfaces [Ref. 23]. The main difference is that there are two data 
structures, ent node and gen sub node, to be traversed instead of one as in the 
other interfaces. Also. an important point to note is that Daplex allows a 
function in an entity which is of entity type. In this case, the user is not 


permitted to specify descriptors for this function. 


Assertions: 
1. The Daplex database D has m entity-type nodes {E£,, E,,..., E,,}. 


2. The Daplex database D has n generalized subnodes {5S,. S,... ., 5,}. 

3. Each entity-type node £,.1=1,...,m, has the entity-type name E-name. 
4. Each generalized subnode S,i=1....,n, has the entity-type name $-name. 
5. Each E,i=1,..., m. has A, attributes. 

6. Each 5, 1 = 1... n has A; attributes. 

7. Each attribute 4,,j= 1... Ñ Ap or As has the attribute name A, -name. 


Figure 4.11. Algorithm for Creating the Descriptor File. (continued) 
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Algorithm: 


write Database-name 
write "FILE B" 


* Repeat for each entity-type node in database */ 
or each entity-type node E, in database D do 
write "!" E-name 
* Repeat for each entity subnode in database */ 
or each entity subnode S, in database D do 
write "!" S-name 
write "Q" 


* Repeat for each entity-type node in database * / 
or each entity-type node E in database D do 


* Repeat for each attribute in entity-type node */ 
or each attribute A,, in entity-type node E, do 


if (A, is not of entity type) then 
if (4,, already selected as index term) then 


if (more values to be added) then 
write additional indexing values 
else 
if (A, is to be index term) then 
write A; AJB 
write indexing values 
write "Q" 


) 


8 Repeat for each entity subnode in database */ 
or each entity subnode S, in database D do 


* Repeat for each attribute in entity subnode */ 
or each attribute A, in entity-type node S, do 
if (A,, is not of entity type) then 
if (A,, already selected as index term) then 
if (more values to be added) then 
write additional indexing values 
else 
if (A,, is to be index term) then 
write A, 
write indexing values 
y write "Q" 
write "$" 


Figure 4.11. Algorithm for Creating the Descriptor File. 
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V. THE RERNEL MAPPING SYSTEM 


The kernel mapping system (KMS) module is called from the language 
interface layer (LIL) when LIL has received Daplex requests input by the user. 
The function of KMS is to: (1) parse the request to validate the user's Daplex 
syntax, and (2) translate, or map, the request to an equivalent ABDL request. 

The remainder of this chapter is organized into four parts. In the first part, 
we present an overview of the general mapping process. focusing on the system 
structure and the design philosophy. In the second part. we describe how the data 
definition portion of Daplex is mapped. In the third part. we describe how the 
data manipulation portion of Daplex is mapped. Finally, in the fourth part, we 


outline the outstanding work to be done to complete the implementation. 


A. AN OVERVIEW OF THE MAPPING PROCESS 

From the description of the KMS functions above we immediately see the 
requirement for a parser as a part of the KMS. This parser validates the Daplex 
syntax of the input request. The parser is also responsible for doing the 
translation of Daplex to ABDL. Thus, the parser is the driving force behind the 


entire mapping system. 
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1. The KMS Parser / Translator 


The KMS parser has been constructed by utilizing Yet-Another-Compiler 
Compiler (YACC) [Ref. 23]. YACC is a program generator designed for syntactic 
processing of token input streams. Given a specification of the input language 
structure (a set of grammar rules), and the user’s code. YACC generates a 
program that syntactically recognizes the input language and allows invocation of 
the user’s code throughout this recognition process. The class of specifications 
accepted is a very general one: LALR(1) grammars. It is important to note that 
the user's code mentioned above is our mapping code that is going to perform the 
Daplex-to-ABDL translation. We utilize a Lexical Analyzer Generator (LEX) 
(Ref. 24). LEX is a program generator designed for lexical processing of 
character input streams. The major difference between LEX and YACC is the 
specification format for the rules. In the LEX specification, the rules are regular 
expressions similar to those used in many text editors. Given a regular 
expression specification of the input strings, LEX generates a program that 
partitions the input stream into tokens and communicates these tokens to the 
parser. 

The parser produced by YACC consists of a finite-state automaton with a 
stack that performs a top-down parse, with left-to-right scan and a one token 
look-ahead. Control of the parser begins initially with the highest-level grammar 
rule. Control descends through the grammar hierarchy, calling lower and 


lower-level grammar rules while searching for appropriate tokens in the input. As 
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the appropriate tokens are recognized, some portions of the mapping code are 
invoked directly. In other cases, tokens are propagated upwards through the 
grammar hierarchy until a higher-level rule has been satisfied, and a further 
translation is performed. When all of the necessary lower-level grammar rules 
have been satisfied and control has ascended to the highest-level rule, the parsing 
and translation processes are complete. In Section B and C, we give illustrative 
examples of these processes. We also describe the subsequent semantic analysis 
necessary to complete the mapping process. 
2. The Grammar Rules 

To begin with the implementation specification for KMS, we utilized the 
Adaplex grammar in the Backus-Naur Form (BNF), provided to us by Dr. 
Stephen Fox of CCA [Ref. 25]. The Adaplex BNF grammar was then reduced to 
a pure Daplex BNF grammar by eliminating all system dependent and Ada 
related goals and rules [Ref. 11]. In this thesis, we further modified the grammar 
for three reasons. First, the original grammar was too complicated for 
implementation. There were many layers of recursive rules that made the 
grammar difficult to comprehend and implement. We modified the grammar in a 
way that recursions in the grammar were reduced to the minimum without losing 
the flavor of the Daplex language. Second, when YACC was used to implement 
the grammar interleaved with C procedures, ambiguities for some rules with 
multiple alternatives of similar formats often occurred. In most cases, YACC 


would invoke its disambiguating rules [Ref. 23: pp. 11-14] and produce a correct 
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parser by selecting one of the valid steps wherever it has a choice. However. if a 
procedure (action) must be done before the parser can be sure which rule is being 
recognized, then the application of disambiguating rules is inappropriate. In this 
case, YACC issues an error message and ignore all conflicting rules except the first 
one. Third. this and prior language interfaces for SQL, DL/I, and CODASYL- 
DML have stressed implementations of a subset of each language. This rich subset 
provides all of the basic. primary database operations. Our implementation for 
Daplex follow this philosophy. 

We now would like to demonstrate the problem of ambiguity by an 
example. In Figure 5.1, The grammar rule for <set-constructor>. which has four 
alternatives, is perfectly acceptable in BNF form. To implement this grammar 
rule in YACC, we would have codes that are in the form shown in Figure 5.2. In 
this example, there is ambiguity on whether procedure-2 or procedure-3 should be 
used when the parser sees a LCB followed by a simple expr. The resulting parser 


created by YACC then has to choose to recognize only the first, second and fourth 


<set-constructor> ::= 
LCB <basic-expr-list> RCB 
| LCB <simple-expr> IN <namel> WHERE <dap-expr> RCB 
| LCB <simple-expr> IN <dap-range> WHERE <dap-expr> RCB 
| LCB RCB 


Figure 5.1. The Grammar Rule For <set-constructor>. 
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set constructor : 
LCB { procedure-1 } basic expr list { procedure-la ) RCB 
| LCB { procedure-2 } simple expr IN namel 
WHERE{ procedure-2a } dap expr RCB 
| LCB { procedure-3 } simple expr IN dap range 
WHERE { procedure-3a } dap expr RCB 
| LCB { procedure-4 } RCB 


Figure 5.2. The Implementation of <set-constructor> in YACC. 


alternative rules. Any statement written in the third form is reported as having 
syntax error by the parser. Therefore. it is necessary to rewrite the grammar rules 
so that the same inputs are read but there are no conflicts. The modified version 


of the grammar in our implementation is listed in Appendix D. 


B. MAPPING THE DATABASE DEFINITION LANGUAGE 

In this section, we describe the additional data structures required to 
implement the database definitions portion of the KMS. This is followed by the a 
general description of the mapping algorithms. 

1. The Data Structures 

In addition to the data structures described in Chapter III, KMS also 

requires some data structures for use during the mapping process. We describe 
two of these data structures that are shared by the database definitions portion 
and the database manipulation portion here. Those data structures that are used 


solely in the manipulation portion are discussed in a later section. At the end of 
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the mapping process, and before control is returned to LIL. all of the data 
structures unique to RMS that have been allocated during the mapping process 
are freed. 

The first data structure is dap kms info, shown in Figure 5.3. It is used 
to accumulate information during the grammar parse. It is a record that allows 
the information to be saved until a point in the parsing processing where it may 
be utilized in the appropriate portion of the translation process. The first three 


fields in this data structure, point to the same data structure, ident list. which 


struct dap kms info 


{ 


struct ident list *dki temp ptr; 
struct ident list *dki namel ptr; 
struct ident list *dki id pir; 

struct sub node list *dki overfirst _ ptr; 
struct der non node dki der non: 
struct sub non node dki sub. non; 
struct ent non node dki ent non: 
struct function node dki funct; 

struct ent value *dki ev ptr; 
struct dap create list *dki create; 

struct req line list “dki req_ptr; 
struct create ent list *dki cel ptr: 
struct overlap node “dki | create ovrptr; 
struct ent _value _list dki evl _ptr; 

struct dml statement *dml statement _ ptr; 
struct loop info "loop info ptr; 


li 


Figure 5.3. The dap kms info Data Structure. 
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temporarily holds a list of names for comparison vvith the identifiers. VVhenever a 
list of identifiers is read. the name of each identifier is kept in the linked list 
pointed to by dki temp ptr. The dki temp ptr always points to a list that 
contains the names of the identifiers in the current list. When there are more 
than one list of identifiers to be compared, for example in the overlapping rule 
declaration, both the dki namel ptr and dki temp ptr pointer are used. For 
type or subtype declarations, both the dki temp ptr and the dki id ptr are used. 
The dki id ptr points to a linked list that contains the names of all type and 
subtype identifiers declared so far. Whenever a new type or subtype declaration is 
parsed, the name of the new type or subtype identifier is checked against this list 
to ensure no duplicate declarations. The dki overfirst ptr is used when parsing 
an overlapping rule declaration to keep the pointers to the gen sub node in the 
first list of the declaration. The next four fields are used to store information for 
der non node, sub non node, ent non node and function node temporarily. 
The dki ev ptr holds a pointer to a temporary storage of entity values. The last 
six fields hold temporary storage or pointers to data structures used solely by the 
database manipulation portion (see Section C). 

The ident list data structure, depicted in Figure 5.4, contains only two 
fields. The first field is a character array that holds the identifier name. The 
second field points to the next ident list component. This data structure provides 


a linked list to maintain identifier names. 


74 





struct ident list 


{ 


char name [ENLength + 1]; 
struct ident list *next; 


JE 


Figure 5.4. The ident list Data Structure. 





2. The Algorithm 

The mapping process of the database definitions portion in KMS is 
relatively straightforward. It involves the parsing of the database schema and the 
transformation of the corresponding database definitions onto the data structures 
described in Chapter III. The detailed implementation of the mapping using 
YACC and C is given in Appendix C. In this section, we provide a general 
description of the algorithm. The schema of the sample database, univ, (see 
Figure 2.1 again) represents a typical database declaration in Daplex. It includes 
the type and subtype declarations, the entity and non-entity declarations, the 
function declarations, the overlapping constraint declarations, and the uniqueness 
constraint declarations. We test our implementation of the DDL portion of KMS 
by parsing this database schema. 

For each database declaration, the database name is checked against the 
current list of databases in the system which is the linked list pointed to by 


dn fun in dbid node (see Figure 3.1). If the database name has been declared 
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before. the transaction is rejected. Otherwise, a new ent dbid node is allocated 
and appended to the current list of databases. 

For type declarations and subtype declarations, similar checks are made 
to ensure that there is no duplication of type or subtype names. These 
declarations include those for the entity type, the entity subtype, the nonentity 
base-type. the nonentity subtype and the derived nonentity type. KMS recognizes 
the difference between these declarations by their different formats and creates 
corresponding data structures to store the information. The data structures are 
ent node (Figure 3.3), gen sub node (Figure 3.4), ent non node (Figure 3.5). 
sub non node (Figure 3.6) and der node node (Figure 3.7). When there is no 
error detected, an appropriate node is created and appended to the corresponding 
linked list pointed to in the data structure ent dbid node. The corresponding 
counter in ent dbid node is also updated. 

For entity type or subtype declarations, incomplete specification is 
allowed. In this case, a skeleton structure of the ent node or gen sub node with 
only the name field filled is created. When the complete declarations is found 
later, then the other necessary information are inserted into the structure. 

For function declarations, the function node data structure (Figure 3.9) 
is used. Depending on the function type declared, the appropriate fields in the 
function node structure are updated. When more than one function are declared, 
a linked list of function node is created. At the end of the function declarations, 


the linked list that has been created is then added to the ent node or 
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gen sub node under which the functions are declared. If the function type is 
entity, then the ent node or gen sub node of this entity is recalled and its 
indicator in the data structure, en terminal or gsn terminal, is updated to reflect 
that this entity is not a terminal. 

For overlapping constraint declarations, tvvo identifier lists are read in. 
Error checkings are performed to ensure that the identifiers in the lists are 
terminal generalized subnode types and they all have the same base type. The 
overlapping information are then stored in the data structure overlap node 
(Figure 3.8) and appended to the edn ovrptr of the ent dbid node. 

For the uniqueness constraint rule, we traverse the ent node and the 
gen sub node data structures to search for the entity-type node or generalized 
subnode that matches the entity identifier declared. Subsequently, the 
function node data structures are traversed to locate the function nodes and the 
fn unique field of each of the function nodes found is set to true. 

Three identifiers list rules are used in the implementation. They are 
new id list. id list and namel list. The basic intent of the three rules are the 
same - to recognize a sequence of identifiers. However, three different rules are 
used because different actions are needed in various situations. The new id list 
rule detects duplicate declarations of name id against dki id ptr but does not 
issue an error message. Instead, an error flag is turned on so that the procedure 
immediately following the rule has the option of ignoring duplication. This is 


necessary because incomplete declarations of entity types are allowed in Daplex. 
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The id list rule checks against dki temp ptr and displays error messages if there 
is a duplication. The namel list rule checks duplication against dki namel ptr 


and issues an error message when required. 


C. MAPPING THE DATA MANIPULATION LANGUAGE 
In this section, we describe the data structures that are used solely in the 
DML portion of KMS. This is followed by a general description of the mapping 
algorithm. 
1. The Data Structures 
The database manipulation portion of KMS uses many data structures for 
temporary storage of information. They are dap create list, dap av pair list, 
req line list, create ent list, dap expr info, relation list, simple exprl, 
simple expr2, simple expr3, simple expr4, funct appln, indexed component, 
set constructor, set construct2, set construct3, dap range info, basic expr list, 
comp assoc list, domain info, loop info, order comp list, dml statement2 list, 
dml statement. These data structures, depicted in Appendix A, are directly 
derivable from the grammar rules. For example, the data structure domain info 
is derivable from the domain rule in the grammar. 
Why are we taking this approach? When we first started on the 
implementation of the database manipulation portion of KMS, we tried to 


translate the Daplex transactions directly to the ABDL transactions. However, 


we encountered some problems and could not proceed in this approach due to the 
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recursive nature of the Daplex grammar rules. Another approach to the problem 
was needed. So, we built the data structures described above to correspond to the 
database manipulation portion of the grammar rules. During the parsing process, 
information on the transactions, conforming to the Daplex grammar rules, are 
transferred to the corresponding data structures. At the end of the parsing 
process. separate procedures would then be used to read from the data structures 
and convert them into ABDL transaction formats. 
2. The Algorithm 

When the user wishes LIL to process Daplex requests against an existing 
database. the task of KMS is to translate the user's Daplex request to equivalent 
ABDL requests. The Daplex request must also be specified within a rigid set of 
grammar rules (see Appendix D). 

The DML statements in the Daplex grammar are represented by the 
dml statement rule. This rule includes statements for CREATE, DESTROY, 
MOVE and FOR EACH transactions. These statements, by themselves, can be 
executed as a valid transaction request. The second rule, dml statement2, handles 
those transactions that can be executed within a loop (FOR EACH) statement. 
The statements that can only be included within a loop are the assignment- 
statement. the include-statement, the exclude-statement, the destroy-statement, 
the move-statement and the procedure-call statement. 

As mentioned in the previous section, the first step in the translation of a 


Daplex transaction to the ABDL request(s) is to instantiate the data structures 


79 


corresponding to the grammar rules parsed. We chose the names of the data 
structures as close as possible to the corresponding grammar rules. For example, 
dap expr info for the dap expr rule and set constructor for the set constructor 
rule. 

Rules that have more than one alternatives are handled in two different 
ways, depending on the situation. When each of the alternative rules has a single 
corresponding data structure, then the new data structure is just a collection of 
pointers to those corresponding data structures. An example of this is the 
simple exprl data structure for the simple-expr rule (Figure 5.5). At any one 


time, only one field in the simple exprl data structure is active. In the case that 


<simple-expr> ::= 
<literal> 
| <set-constructor> 
| <indexed-component> 
| <function-application> 


struct simple exprl 


{ 


char lit array[LITLength+1]|; 


struct set constructor *set construct ptr; 
struct indexed component “indexed comp ptr 
struct funct appln *funct appln_ ptr; 


y; 


Figure 5.5. The Grammer Rule and Data Structure for <simple-expr>. 
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the alternative rules do not correspond to single data structures, new data 
structures are created for the alternative statements. For example. the relation 
rule has four alternative statements. The corresponding data structure is the 
relation list shown in Figure 5.6. Four pointers to the data structures, 
simple exprl. simple expr2. simple expr3 and simple expr4. are utilized and 


correspond to the four alternative statements. 





<relation> ::= 
<simple-expr> 
| <simple-expr> <relational-operator> <simple-expr> 
| <simple-expr> <in-op> <dap-range> 
| <simple-expr> <in-op> <namel> 


struct relation list 


{ 


struct simple exprl “simple expri ptr; 
struct simple expr2 "simple expr2 ptr; 
struct simple expr3 "simple expr3 ptr; 
struct — simple exprd "simple expr4 ptr: 
struct relation list next: 


y 


Figure 5.6. The <relation> Rule and The relation list Data Structure. 


D. FUTURE WORKS 
As we reached this stage in the implementation, a decision was made to 


discontinue the implementation effort for this thesis and leave the remainder for 
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future efforts due to a time limitation. In this section. we outline the work that 
needs to be done to complete the implementation. 
1. Completing the Kernel Mapping System 

The DDL portion of KMS has been fully implemented. As for the DML 
portion, the implementation of the parser that translates the Daplex database 
manipulation request to the corresponding data structures has been completed. 
However, the procedures for mapping the data structures to the ABDL request 
have not been implemented. 

To complete the implementation of KMS. we need a procedure to access 
the dml statement ptr field of the dap kms info data structure (see Figure 5.3). 
The dml statement ptr points to the data structure dml statement, as shown in 
Figure 5.7. There are four pointers in the dml statement data structure which 


point to the dap expr info, the indexed component, the basic expr list and the 


struct dml statement 


L 


int type: 

struct dap expr info *dap expr ptr; 
struct indexed component *indexed comp ptr: 
struct basic expr list *basic expr ptr: 
struct comp assoc list *comp assoc ptr; 


ie 


Figure 5.7. The dml statement Data Structure. 
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comp assoc list data structures. Four additional procedures. one for each of the 
aforementioned data structures, are required to read from the data structures and 
translate the information in the data structures into ABDL request(s). 

2. The Kernel Controller 

Once KMS has performed the necessary transformations and translations 
of Daplex requests into their equivalent ABDL requests. KC controls the 
submission of the ABDL requests to MBDS for processing. After ABDL processed 
the requests. control is returned to LIL. 

Just as data structures are specified for LIL and KMS. we also require 
data structures that are specified for KC to recognize the different types of ABDL 
requests. We need a KC procedure to control the processing of each of the ABDL 
request (i.e., INSERT, DELETE, UPDATE, and RETRIEVE). 

3. The Kernel Formatting System 

KFS is the fourth module in the language interface, and is called by the 
kernel controller when it is necessary to display results to the user. The only task 
that KFS performs is to display on the screen the result returned by MBDS in 
Daplex format. Therefore, it is the easiest module to implement in the language 
interface. 

Both the kernel controller and the kernel formatting system have not 
been implemented yet. However, in our implementation of LIL and KMS, a stub 
is inserted wherever KC or KFS is to be called. The name of the stubs are 


f Kernel controller and f kernel formatting system, respectively. So, the next 
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implementor may proceed to implement the two modules using the same names. 
After the two modules are implemented, all we need to do for integrating the four 


modules, i.e., LIL, KMS, KC. and KFS, is to replace the stubs. 
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VI. THE CONCLUSION 


In this thesis, we have presented a partial specification and implementation 
of a Daplex language interface . This is one of four language interfaces that the 
multi-lingual database system supports. When complete, the multi-lingual 
database system will be able to execute transactions written in four well-known 
and important data languages, namely, SQL, DL/I, Daplex, and CODASYL. The 
work accomplished in this thesis is part of the ongoing research effort being 
conducted at the Laboratory for Database Systems Research, located at the Naval 
Postgraduate School in Monterey, California. 

The need to provide an alternative to the development of separate stand- 
alone database systems for specific data model/data language constructions has 
been the motivation for this research. In this regard, we have first demonstrated 
the feasibility of a multi-lingual database system (MLDS) by showing how a 
software Daplex language interface can be constructed. 

A major goal has been to design a Daplex-to-ABDL interface without 
requiring any change be made to ABDL or the underlying database system, 
MBDS. Our partial implementation may be completely resident on a host 
computer or the controller. All of the Daplex transactions are executed and 


processed in the Daplex interface. MBDS continues to receive and process 
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transactions written in the unaltered syntax of ABDL. In addition, our 
implementation has not required any change to the syntax of Daplex. The 
interface is completely transparent to the Daplex user as well as to the MBDS 
user. 

In retrospect, our level-by-level, top-down approach to the design of the 
interface has been a good choice. This implementation methodology has been the 
most familiar to us and proved to be relatively efficient in time. In addition, this 
approach permits follow-on programmers to easily maintain and modify the code. 

In this thesis, we have fully implemented the LIL module and partially 
implemented the KMS module. A minor part of the KMS module and the KC 
and KFS modules are left for another programmer to follow up. It is a great 
disappointment that we have not been able to complete the implementation. The 
primary reason for our failure has been the complexity of the functional model 
and the Daplex language. The total amount of codes required for the 
implementation far exceed those required for the other interface implementations. 
In terms of lines of code, we have implemented the same number of lines as in the 
entire language interface of the CODASYL implementation. We have also 
outlined how the remaining implementation should proceed. 

We have shown that a Daplex interface can be implemented as part of 
MLDS. We have provided a partial software structure to facilitate this interface, 
and we have developed actual code for implementation. The next step is to 


complete the development of the Daplex interface. When complete, this interface 
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can be integrated with the other implementations and tested as a vvhole to 
determine how efficient, effective, and responsive it can be to a users’ needs. The 
results may be the impetus for a new direction in database system research and 


development. 
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APPENDIX A 


THE DAPLEX DATA STRUCTURES 


union dbid node 


{ 


struct rel dbid node “dn rel, 
struct hie dbid node “dn hie; 
struct net dbid node “dn net; 
struct fun dbid node *dn fun; 


} 


struct fun dbid node 
* structure def for each entity-relationship dbid node */ 


{ 


char fdn name DBNLength + 1); 

struct ent non node "ídn nonentptr: 

int fdn num nonent: '* number of nonentitv types * 
struct ent node *fdn entptr; 

int fdn num ent: '* number of entity types *' 

struct gen sub node “fdn subptr: 

int fdn num gen: /* number of gen subtypes */ 
struct sub non node *fdn nonsubptr; 

int fdn num nonsub; /* number of nonentity subtypes */ 
struct der non node *fdn nonderptr; 

int fdn num der; /* number or nonentity derived types * / 
struct overlap node  *fdn ovrptr; 

int fdn num ovr, /* number of overlap nodes */ 
struct fun dbid node *fdn next db: 


E 


struct ent node 
/* structure definition for each entity node " / 


{ 


char en name,ENLength + 1]; 

int en last ent id, /* keeps track of the unique id assigned 
to each entity type in the database * / 

int en num funct; /* number of assoc. functions */ 

int en terminal: /* if true (=1) it is a terminal type */ 

struct function node “en ftnptr; 

struct ent node "en next ent: 


E 


struct gen sub node 
/* structure def for each generalization (supertype/subtype) node */ 


{ 


char gsn namelENLength - 1), 

int gsn num funct; /* number of assoc. functions” / 

int gsn terminal, /* if true (=1) it is a terminal type " / 
struct ent node list *gsn entptr; /* ptr to entity supertype */ 
int gsn num ent; /* number of entity supertypes * / 
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struct 


struct 
struct 
int 

struct 


function node “gsn ftnptr; 


sub node list *gsn subptr; /* ptr to subtype supertype * 


gsn num sub: 


/* number of subtype supertypes ", 


gen sub node “gsn next genptr: 


ent non node 


/* structure def for each base-type nonentity node * / 


{ 


struct 


char 
char 


int 
int 


int 
struct 
int 
struct 


enn name ENLength — 1: 


enn type; /* either i(nteger), s(tring). 


f(loat), e(numeration). or b[oolean) * 
/* max length of base-type value * 


enn total length: 


enn range: /* true or false depending 
on whether there is a 


range. If range exists. 


there must be two entries 


into ent value * / 


enn num values: 

ent value *enn value: 
enn constant: 
ent non node “enn next node; 


sub non node 


j= 


(x 


/* structure def for each subtype nonentity node * ’ 


{ 


char 
char 


int 
int 


int 
struct 
struct 


NE 


stru 


/* structure def for each derived type nonentity node " / 


{ 


snn name ENLength — 1: 


snn type: /* either i(nteger), s(tring), 


f(loat), e(numeration), or b(oolean) " 
/* max length of subtype value *; 


snn total length; 


snn range; /* true or false depending 
on whether there is a 


range 
there 


into ent value */ 
/* number of actual values */ 
/* actual value of subtype */ 


snn num values: 
ent value *snn value; 
sub non node *snn next node: 


ct der non node 


char 
char 
int 
int 


dnn namelENLength - 1); 


. If range exists, 


must be two entries 
/ 


i 


dnn type; /* either i(nteger), s(tring). 


float), e(numeration), or b(oolean) */ 

/* max length of derived type value */ 

dnn range; /* true or false depending on whether 
- there is a range. If range exists, 
there must be two entries in the 


dnn total length; 
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number of actual values * 
/* actual value of base-type " 
/* boolean to refelect constant value " / 


/ 


/ 


/ 


ent value */ 


int dnn num values; /* number of actual values */ 
struct ent value *dnn value; /* actual value of derived type */ 
struct der non node *dnn next node; 


I 


struct overlap node 
/* structure def for overlapping constraint */ 


{ 


char base type name/ENLength+1/; 

struct sub node list *snlptr; 

int num sub node; /* number of sub node in the above list */ 
struct overlap node “next; 


lå 


struct function node 
/* structure definition for each function type declaration */ 


{ 


char fn name[ENLength+1;; 
char fn type: /* either f(loat), i(nteger), s(tring). 
b(oolean), or e(numeration) */ 

int fn range: /* Boolean if range of values */ 
int fn set; /* Boolean if set of values " / 
int fn total length; /* max length */ 
int Ín num value, /* number of actual values */ 
struct ent value *fn value; /* actual value */ 
struct ent node “fn entptr, /* ptr to entity type */ 
struct gen sub node *fn subptr; /* ptr to entity subtype */ 
struct ent non node *fn nonentptr; /* ptr to nonentity type */ 
struct sub non node *fn nonsubptr; /* ptr to nonentity subtype */ 
struct der non node *fn nonderptr; /* ptr to nonentity dertype */ 
int fn_entnull; /* initialized false set true for no value */ 
int fn_unique; /* init false - unique if true */ 
struct function node "next; 

J; 

struct sub_ node list /* list of ponters */ 

/* structure definition for terminal subtypes that define one or more 
subtypes */ 

{ 
struct gen sub node *subptr; /* only terminal subtypes */ 
struct sub node list "next; 

}; 

struct ent node list /* list of pointers */ 


/* structure definition for subtypes with one or more entity supertypes */ 


{ 


struct ent node *entptr; 
struct ent node list “next; 


Na 
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struct ent value 
/* struct def for value of ’1’,’s’,’f’,’e’, or 'b' ", 


{ 


char *ev value; /* pointer to character string only */ 


struct ent value *next; 


le 


struct ident list 


char name (ENLength — 1]; 
struct ident list * next; 


}; 


struct ent value list 


{ 


char type; 
int num values; 
struct ent value *ev pur: 


j 


struct dap kms info 


{ 


struct ident list “dki temp ptr; 
struct ident list “dki namel ptr; 
struct ident list ”dki id pur; 

struct sub node list “*dki overfirst ptr; 
struct der non node dki der non; 

struct sub non node dki sub non; 

struct ent non node dki ent non; 

struct function node dki funct; 

struct ent value *dki ev ptr; 

struct dap create list *dki create; 

struct req line list *dki req ptr; 
struct create ent list *dki cel ptr; 

struct overlap node *dki create ovrptr; 
struct ent value list dki evl ptr; 

struct dm] statement *dml statement ptr; 
struct loop info "loop info ptr: 


T 


struct dap create list 


{ 


int req type; /* Insert or Retrieve */ 
char en namelENLength - 1), 

struct dap av pair list *av pair ptr; 

struct dap create list *next; 


E 


struct dap av pair list 


{ 
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char name ENLength — 1;; 


struct function node *fenpir; 
int num value; 

struct ent value *valptr; 
struct dap av pair list * next; 


Ji 


struct req line list 


{ 
char reg line REQLength|; 


struct req line list "next: 


T 


struct create ent list 


{ 


struct ent node list *enl ptr; 
struct sub node list *snl ptr; 
struct create ent list “next: 


i 


struct dap expr info 


{ 


int reiation type: * Relation, AndRelation or OrRelation * 
struct relation list "rel list pur: 


}: 


struct relation list 


{ 


struct simple expri "simple exprl ptr; 
struct simple expr2 *simple expr2 ptr; 
struct simple expr3 *simple expr3 ptr: 
struct simple expr4 *simple exprá ptr; 
struct relation list *next: 

j; 

struct simple exprl 

{ 
char lit array/LITLength+1]; 
struct set constructor *set_construct ptr; 
struct indexed component *indexed comp ptr; 
struct funct appin *funct appln_ptr; 

JE 

struct funct appln 

{ 
int type; /* COUNT, SUM, AVG, MIN, MAX */ 
/* The followings are structures for expr_types in the grammar */ 
char name id|ENLength + 1]; 
struct set constructor *set construct_ptr; 
struct indexed component *indexed comp ptr; 


JE 
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struct indexed component 


{ 


char name .id ENLength - 1: 

char type; /* Entity, GenSub, LoopParameter, Function */ 
char parent name ENLength + 1;; 

struet indexed component *next; 


I 


struct set constructor 


{ 


struct basic expr list *basic expr ptr; 
struct set construct2 *set construct2 ptr; 
struct set construct3 *set construct3 ptr; 


}; 


struct set construct2 


{ 


struct simple exprl "simple exprl ptr: 
char namel ENLength - 1: 
struct dap expr info dap expr ptr; 


}; 


struct dap range info 


{ 


int range type: /* Integer or Float */ 
char first value|FLTLength — 1); 
char second value FLTLength + 1); 


hr 


struct set constructó 


{ 


struct simple exprl "simple expri ptr, 
struct dap range info dap range; 
struct dap expr info dap expr _ ptr; 


E 


struct basic expr list 


{ 


char lit array[LITLength+1); 

struct indexed component *indexed comp ptr; 
struct funct appin *funct appln_ptr; 
struct basic expr list *next; 


je 


struct comp assoc list 


{ 


char name|ENLength + 1); 
struct simple exprl simple expr; 
struct comp assoc list next 


He 
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struct simple expr2 


{ 


struct simple exprl “first expr; 
int rel operator; 
struct simple expr] *second expr; 


E 


struct simple expr3 


{ 


struct simple exprl *simple expr; 
int in Op: /* INOp or NINOp */ 
struct dap range info *dap range; 


le 


struct simple expr4 


{ 


struct simple exprl "simple expr: 
int in Op; /* INOp or NINOp */ 
char name id ENLength + 1); 


he 


struct domain info 


{ 


/* only one of the first two fields is active at one time * / 

/* see loop expr in grammar */ 

struct indexed component “indexed comp ptr; 

char name|ENLength + 1); 

struct dap expr info *dap expr ptr; /* optional field */ 


L 


struct loop info 


{ 


char loop parameter|ENLength + 1); 

struct ent node *entptr; 

struct gen sub node *subptr; 

struct domain info domain; 

struct order comp list “order comp ptr; 

struct dml statement? list *dml statement2 list ptr: 


struct order comp list 


{ 


int sort order; /* ASCENDING or DESCENDING */ 
struct indexed component *indexed comp ptr; 
struct order comp list *next; 


1 


struct dml statement2 list 


{ 


struct dm] statement *dml statement2 ptr: 
struct dm] statement2 list *next; 
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E 


struct dm] statement 


{ 


int type: /* Assignment, Include, Exclude, 
Destroy, Move, Procedure, Create */ 

struct dap expr info *dap expr ptr; 

struct indexed component “indexed comp ptr, 

struet basic expr list tbasic expr ptr, 

struct comp assoc list *comp assoc ptr; 


i 
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APPENDIX B 
THE LIL MODULE 


VEE NG 


include <stdio.h> 
+include "licommdata.def" 
#include "struct.def™ 
#include "flags.def" 
#include "dap.ext" 
+include "lil.dcl" 


f language interface layer() 
/* This proc allows the user to interface with the system. */ 
/* Input and output: user DAPLEX requests a 


{ 


int num: 


int stop: /* boolean flag * 
#ifdef EnExF lag 

printf ("Enter f language interface layer\n"); 
# endif 


dap init(); 


/* initialize several ptrs to different parts of the user structure */ 
/* for ease of access 7 

dap info pir = &(cuser dap ptr->ui li type.li dap); 

tran info ptr = &(dap info ptr->dpi i dml tran); 

first req ptr = &(tran_ ‘info _ptr->ti > first Teq); 

curr req ptr = &(tran info ptr->ti curr reg); 


/* the followings are inserted for testing build dd] files only Nl 

le 
dap info ptr->dpi curr db.cdi db.dn fun = dbs dap head ptr.dn fun; 
f build ddl files(); 


* 


/* end test code */ 


stop = FALSE; 
while (stop == FALSE) 


/* allow user choice of several processing operations * / 
printf ("\nEnter type of operation desired\n"); 

printf ("Vt(1) - load new database\n"); 

printf ("\t{p) - process existing database\n"); 

printf ("\t(x) - return to the operating system\n"); 
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dap info ptr->dap answer = get ans(&num); 
switch (dap info ptr->dap answer) 


case ’]’: /* user desires to load a new database */ 
f load new(); 
break; 

case ’p’: /* user desires to process an existing database */ 
f process old(); 
break; 

case ’x’: /* user desires to exit to the operating system */ 
/* database list must be saved back to a file */ 
stop = TRUE; 
break: 

default: /* user did not select a valid choice from the menu */ 
printf ("\nError - invalid operation selected n"'); 
printf ("Please pick again\n"); 
break: 

y /* end switch */ 


/* return to main menu *, 

y /* end while */ 
#ifdef EnExFlag 

printf ("Exit f language interface layer\n"); 
#endif 


} /* end f language interface layer */ 


dap init() 
{ 
#ifdef EnExFlag 
printf ("Enter dap init\n"); 
#endif 
#ifdef EnExF lag 
printf ("Exit dap init\n"); 
#endif 
} /* end dap _ init */ 


f load new() 


/* This proc accomplishes the following: = 

/* (1) determines if the new database name already exists, z 
/* (2) adds a new header node to the list of schemas, SÅ 
/* (3) determines the user input mode (file/terminal), Å 


/* (4) reads the user input and forwards it to the parser, and  */ 
/* (5) calls the routine that builds the template/descriptor files " / 
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int num: 
int more input; /* boolean flag */ 
int proceed: /* boolean flag */ 
struct fun dbid node *db list ptr, /* ptr to the current db */ 
g *new ptr, /* ptr to a new db structure " / 
*fun_dbid node alloc(); /* ptr to allocated db */ 
#ifdef EnExFlag 
printf ("Enter f load new\n"); 
#endif 


/* prompt user for name of new database */ 
printf ("(7;7m\nEnter name of database ---->/0;0m "); 
readstr (stdin. dap info ptr->dpi curr db.cdi dbname); 
to caps (dap info _ptr->dpi | curr db. edi _dbname); 
db list ptr = dbs dap | head _ptr. dn fun; 
while (db list_ ptr != NULL) 
{ 

/* determine if new database name already exists */ 

/* by traversing list of entity-relation db schemas */ 

if ((stremp(db list ptr->fdn name, 

dap info ptr->dpi curr db.cdi dbname))== 0) 
{ 


printf ("\nError - db name already exists\n"); 
printf ("|7;7mPlease reenter db name ---->[0:0m "); 
readstr (stdin, dap info ptr->dpi curr db.cdi dbname); 
to caps (dap info ptr->dpi curr db.cdi dbname); 
db list ptr = dbs dap head ptr. dn fun; 
1 
else 
db list ptr= db list ptr->fdn next db; 
) /* end while */ 


/* continue - user input a valid ’new’ database name */ 
/* add new header node to the list of schemas and fill-in db name */ 
/* append new header node to db list & init relevent user stucture ptrs */ 


new ptr = fun dbid node alloc(); 

strepy (new ptr->fdn name, dap info ptr->dpi_ curr db.cdi dbname); 
new ptr->fdn next db = dbs dap head ptr.dn fun; 

dbs dap head ptr.dn fun = new ptr; 

dap info ptr->dpi curr db.cdi db.dn fun = new ptr; 

dap info ptr->dpi curr db.cdi attr.an dattr ptr = NULL; 


/* check for user's mode of input " / 
more input = TRUE; 
while (more input == TRUE) 


/* determine user’s mode of input */ 
printf ("\nEnter mode of input desired\n"); 
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printf ("Vt(f) - read in database description from a file\n"): 
printf ("At(x) - return to the to main menu\n"); 
dap info ptr->dap answer = get ans(&num); 


switch (dap info ptr->dap answer) 


case ”f: /* user input is from a file */ 
f read transaction file(); 
if (dap info ptr->dap error != ErrReadFile) 


/* file contains transactions * / 

/* dbd stands for database description 
f dbd to KMS(); 
f free requests(); 

if (dap info ptr->dap error != ErrCreateDB) 


{ 


/* no syntax errors in creates * / 
f build dd] files(): 
f Kernel Controller(): 


| end | 
} “wend if ~ 


ve 
7 


break: 

case x’: '* exit back to LIL */ 
more input = FALSE: 
break: 

default: /* user did not select a valid choice from the menu */ 
printf ('\nError - invalid input mode selected\n"); 
printf ("Please pick again\n"); 
break; 

\ /* end switch */ 


if (dap info ptr->dap error == ErrCreateDB) 
/* errors in creates so exit this loop */ 
more input = FALSE; 

dap info ptr->dap error = NOErr; 

} /* end while */ 


#ifdef EnExFlag 


printf ("Exit f load new\n"); 


# endif 


} /* end f_load_ new */ 


f process old() 


/* This proc accomplishes the following: 


+ 


/* (1) determines if the database name already exists, */ 
/* (2) determines the user input mode (file/terminal), */ 
/* (3) reads the user input and forwards it to the parser * / 
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int found, more input; /* boolean flags *) 
int num; 
struct fun dbid node *db list ptr; /* ptr to the current database */ 


#ifdef EnExFlag 
printf ("Enter f process old\n"); 
#endif 


/* prompt user for name of existing database */ 

printf ("|7;7m\nEnter name of database ---->/0;0m "); 
readstr (stdin, dap info ptr->dpi_ curr _db.cdi dbname}; 
so caps (dap info ptr->dpi curr db.cdi dbname); 

db list ptr = dbs dap head ptr.dn fun: 


found = FALSE; 
while (found == FALSE) 
/* determine if database name does exist E 
/* by traversing list of entity-relation schemas " 
if (stremp(dap info ptr->dpi curr db.cdi dbname.db list ptr->fdn_name)== 0) 


{ 
found = TRUE: 
dap info ptr->dpi curr db.cdi db.dn fun = db list ptr: 


) 


else 


db list ptr = db list ptr->fdn next db; 
/* error condition causes end of list NULL’) to be reached */ 
if (db list pir == NULL) 


printf ("\nError - db name does not exist \n"); 
printf ("|7;7mPlease reenter valid db name ---->[0;0m "); 
readstr (stdin, dap info ptr->dpi curr db.cdi dbname); 
to caps (dap info _ptr->dpi curr db. cdi dbname); 
db list ptr = dbs dap head ptr. dn fun; 
} /* end if */ 


} /* end else */ 
y /* end while */ 


/* continue - user input a valid existing database name */ 
/* determine user’s mode of input */ 
more input = TRUE; 
while (more input == TRUE) 
{ 
printf ("\n\nEnter mode of input desired \n"); 
printf ("\t(f) - read in a group of DAPLEX requests from a file\n"); 
printf ("\t(t) - read in DAPLEX requests from the terminal \n"); 
printf ("\t(x) - return to the previous menu\n"); 
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dap info ptr->dap answer = get ans(&num); 
switch (dap info ptr->dap answer) 


case ’f’: /* user input is from a file */ 
f read transaction file(); 
dapregs to RMS(): 
f free requests(): 
break; 
case ’t’: /* user input is from the terminal */ 
f read terminal(): 
dapregs to RMS(): 
f free requests(); 
break; 
case ’x’: /* user wishes to return to LIL menu 
more input = FALSE; 
break; 
default: /* user did not select a valid choice from the menu *, 
printf ("\nError - invalid input mode selected\n"); 
printf ("Please pick again\n"); 
break; 
} /* end switch */ 


= 
i 


) /* end while */ 


#ifdef EnExFlag 
printf ("Exit f process old\n"); 
#endif 


) /* end f process old */ 


2. FILE: lilcommon.c 


#include <stdio.h> 
#include <ctype.h> 
#include <strings.h> 
#include "licommdata.def"! 
#include "struct.def" 
#include "flags.def" 
#include "dap.ext" 
#include "lil.ext" 


f dbd to RMS() 


— /* This routine sends the request list of database descriptions one */ 


/* by one to the KERNAL MAPPING SYSTEM and frees the list as it goes */ 


{ 


#ifdef EnExFlag 
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printf ("Enter f dbd_ to KMS\n"): 
# endif 


dap info ptr->dap operation = CreateDB; 


/* set the current ptr to the first ptr */ 
curr req ptr->ri dap req = first req ptr->ri_dap req; 


/* now send each request to KMS */ 
while (curr_req ptr->ri_dap req != NULL) 


f kernel mapping system (); 
if (cuser dap ptr->ui li type.li dap.dap error == ErrCreateDB) 
break; 
curr req ptr->ri dap req = curr req ptr->ri dap req->dri next reg; 
) /* end while */ 
/* reset the number of requests * / 
tran info ptr->ti no req = 0; 


#ifdef EnExFlag 
printf ("Exit f dbd to KMS\n"); 
#endif 


) /* end f dbd to KMS */ 
dapregs to RMS() 


/* This routine causes the queries to be listed on the screen. */ 
/* The selection menu is then displayed allowing any of the */ 


/* queries to be executed. = 
{ 
int proceed; /* boolean flag */ 
int quit; /* boolean flag */ 
int num: 
#ifdef EnExFlag 
printf ("Enter dapreqs to KMS\n"); 
Perr 
num = Q; 


list dapregs(); 
proceed = TRUE; 
while (proceed == TRUE) 


printf ("\nPick the number or letter of the action desired \n"); 

printf ("\t(num) - execute one of the preceding DAPLEX requests\n"); 
printf ("\t(d) - redisplay the file of DAPLEX requests\n"); 

printf ("\t(x) - return to the previous menu\n"); 

dap info ptr->dap answer = get _ans(&num); 
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switch (dap info ptr->dap answer) 
case ’n’: /* execute one of the requests */ 
if (num > 0 && num <= tran info ptr->ti no req) 


find dapreq (num); 
/* This is the default value for di operation */ 
/* If not a retrieve request, this value is reset */ 
/* in kernel mapping system */ 
dap info ptr->dap operation = ExecRetReq; 


quit = FALSE; 
while (quit == FALSE) 


f kernel mapping system(); 
if (dap info ptr->dap error == NOErr) 
curr req ptr->ri dap req = 
curr req ptr->ri_dap req->dri sub req; 


else 
quit = TRUE; 

if (curr req ptr->ri dap req == NULL) 
quit = TRUE; 


) 


if (dap info ptr->dap error == NOErr) 
f Kernel Controller(); 
\ /* end if */ 


else 


printf ("\nError - the DAPLEX request for the number you "): 
printf ("selected does not exist\n"); 


printf ("Please pick again\n"); 
) /* end else */ 


break: 

case ’d’ : /* redisplay requests */ 
list dapregs(): 
break; 

case °x’ : /* exit to mode menu */ 
proceed = FALSE; 

tran info ptr->ti_no req = 0; 
break; 

default : /* user did not select a valid choice from the menu */ 
printf ("\nError - invalid option selected\n"); 
printf ("Please pick again\n"); 
break; 

} /* end switch */ 


} /* end while */ 


#ifdef EnExFlag 
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printf ("Exit dapreqs to KMS\n"); 
# endif 


) /* end dapregs to KMS */ 
list dapregs() 


/* This routine actually prints the query list to the screen */ 


struct dap req info *sub req ptr; /* ptr to a subrequest * / 
struct temp str info "red ptr; /* ptr to a line of a query */ 


int i; /* the number of the query */ 
int first line; /* boolean flag = 
FILE *qry fid; /* file id for query print file */ 
#ifdef EnExF lag 
printf ("Enter list dapregs|n"); 
+endif 
EE 


dry hd = fopen( QRYFName, "w"); 
curr req ptr->ri_ dap req = first req ptr->ri_dap req; 


/* loop and print the queries until there are no more */ 
while (curr req ptr->ri_dap req != NULL) 
{ 
first line = TRUE; 
fprintf (qry_fid,"\n"); 
sub req ptr = curr req ptr->ri dap req; 


/* loop and print the subqueries until there are no more */ 
while (sub req ptr != NULL) 
{ 
req ptr = sub req ptr->dri in req; 
while (req ptr != NULL) 


{ 
if (first line == TRUE) 


/* first line of a query so print the number of it first */ 
fprintf (qry_fid, "\t%d\t %s\n", i, req_ptr->tsi_str); 
first line = FALSE; 
} /* end if */ 
else 
fprintf (qry_fid, "\t\t %s\n", req_ptr->tsi_ str); 
req ptr = req ptr->tsi next; 


} /* end while */ 


sub req ptr = sub req ptr->dri sub req; 


} /* end while */ 
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curr_req ptr->ri_ dap req = curr req ptr->ri_dap req->dri_ next req; 
I++; 
} /* end while */ 
fclose( qry_fid ); /* close the query file */ 


moredapregs( QRYFName ); /* print out the queries " / 


+ifdef EnExFlag 
printf ("Exit list dapregs|n"); 
endif 
} /* end list_dapregs */ 
find dapreq(num) 
int num; /* specified query to be executed */ 
{ 
Intel: /* counter *, 


/* This function walks down the DAPLEX request list to the (num)th */ 
/* query and leaves the current ptr pointing to that request */ 


#ifdef EnExF lag 

printf ("Enter find dapreq\n"); 
Fendi 

/* set the current ptr to the first ptr */ 

curr req ptr->ri dap req = first req ptr->ri_dap req; 

for (i = 1; 1 < num; i++) 

curr req ptr->ri dap req = curr req ptr->ri dap req->dri_ next req; 

#ifdef EnExFlag 

printf ("Exit find dapreq\n"); 
#endif 


} /* end find dapreq */ 


f free requests() 


struct dap req info “sub req ptr; 
/* This function frees all memory reserved by the transaction list */ 
+ifdef EnExFlag 
printf ("Enter f free requests\n"); 


#endif 


/* set the current ptr to the first ptr */ 
curr req ptr-Xri dap reg — first req ptr->ri dap reg; 
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while (curr req ptr->ri dap req != NULL) 
while (curr req ptr->ri dap req->dri sub req != NULL) 


sub req ptr =curr req ptr->rì dap req->dri sub reg; 
curr req ptr->ri dap req->dri sub req =sub req ptr->dri sub req; 
free (sub req ptr); 

} /* end while */ 


curr req ptr->ri dap req = curr req ptr->ri dap req->dri next req; 
free (first req ptr->ri_ dap req); 
first req ptr->ri dap req = curr req ptr->ri dap req; 

) /* end while * / 


#ifdef EnExFlag 
printf ("Exit f free requests\n"); 
Hendif 


} /* end f free requests */ 


static moredapreqs(fname) 
char *fname; 


{ 


int c.counter: 
char ch[3); 

int 1J; 

int no lines; 


FILE *fd; 


telt 


fid = fopen(fname,"r"); 
no lines = 21; 


c = fgetc(fid); 
while(c != EOF) 


counter = 0; 


while ((counter <= no lines) && (c != EOF)) 


printf("%c",c); 
if (e ==] 
++counter; 


c = fgetc(fid); 


if (counter >= no lines) 
printf("An[7;7m-- more --[0;0m"); 
for(i = 0; ( (i <= 2) && ((ch[i] = getehar())!="Vn") ); i++) 


3 


106 


if ((i==1) && (ch[0] ss 'q')) 
return; 


else if (i == 1) 


en OL 
no lines = str to numích) - 
) 


else 


10 


ne: 
no lines = str to num(ch) - 
) 
else 
no lines = 21; 


printf("\n"); 
} /* end if */ 
} /* end while eof * / 


fclose( fid ); 


} /* end more *, 


3. FILE: newuser.c 


/* This proc allocates and initializes a node and structure of the user list * / 


#include <stdio.h> 
#include "licommdata.def" 
#include "struct.def" 
#include "flags.def" 
#include "dap.ext" 


struct user info *new dap user() 
i 
struct user info “new user alloc(), /* ptr to new allocated user struct " / 
B *user ptr, _/* ptr to user struct */ 

*new user ptr;  /* ptr to new allocated user struct */ 
struct dap info *dap info ptr; /* temp ptr to dap info struct do 
struct curr db info *curr db info ptr; /* temp ptr to curr db info struct */ 
struct file info *file info _ptr; Te temp ptr to file info struct =, 
struct tran info *tran info ptr; /* temp ptr to tran info struct */ 
struct ke ent info "he _ptr; /* temp ptr to he dap info struct */ 
struct fs ent info *kfs ptr, /* temp ptr to kfs _dap | info struct */ 
char *var str - alloc(); 


#ifdef EnExFlag 


printf ("Enter new _dap_user\n"); 
ERE 
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/* allocate a new user structure */ 
new user pir = new user alloc(); 
/* set user ptr to the head of the user list *, 
user ptr = user dap head ptr; 
if (user ptr = = NULL) 
{ 
/* user list is empty */ 
user dap head ptr = new user ptr; 
user ptr = new user ptr; 


else 


/* walk down user list to the end and append new user structure */ 
while (user ptr->ui next user != NULL) 
user ptr = user ptr->ul next user; 
user ptr->ui next user = new user ptr; 
user ptr = new user ptr; 


) 


/* initialize complete new user structure * ' 

get new user (user ptr->ui_ uid); 

dap info pir = & (user ptr->ui li type.li dap); 

dap info _ptr->dap operation = 0; 

dap info _ptr->dap answer = 0; 

dap info _ptr->dap error = NOErr: 

dap info _ptr->dpi ddl files = NULL; 

dap | info _ptr->dap_ buff _count = 0; 

curr db info ptr =  &(dap info ptr->dpi curr db); 

strcpy (curr db info ptr->cdi dbname, DUMMYDBname); 
curr db info _ptr->cdi_ db.dn dens = NULL: 

CUIT db info ptr->cdi attr.an nattr pir = NULL; /* 77777 * 
file info pir = &(dap ` info _ptr->dpi påle): 

strepy (file info ptr->fi fname, DUMMYFname): 

file info ptr->fi fid = NULL; 

tran info ptr — &(dap info ptr->dpi dmi tran); 

dap info _ptr->dpi_ kms _data.ki_n kms = NULL; 

kfs ptr = &(dap info _ptr->dpi_ kfs _data.kfsi quel 


/* kri response is now allocated here rather than in procedure */ 
/* dap_chk responses left in kc.c = 

kfs ptr->khi response = var str alloc(1024), 

kfs ptr->khi curr pos = 0; 

kfs ptr->khi res len = 0; 

ke ptr = &(dap info ptr->dpi ke data.kei e kc); 

ke ptr->temp = 0; 


#ifdef EnExFlag 
printf ("Exit new dap user|n"); 
#endif 
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return (new user ptr): 


) /* end new dap user */ 


4. FILE: readrtnes.c 


#include <stdio.h> 
#include <ctype.h> 
#include "flags.def" 
#include "licommdata.def" 
#include "struct.def" 
#include <strings.h> 
#include "dap.ext" 
#include "lil.ext" 


f read transaction file() 


{ 


int open flag; /* boolean flag */ 


int 1; /* counter y 


/* This routine opens a DAPLEX dbd/request file and reads the */ 


/* dbds/requests into the request list. oH 
#ifdef EnExFlag 
printf ("Enter f read transaction file\n"); 


#endif 


open flag = FALSE; 
printf ("|7;7m\nWhat is the name of the DBD/REQUEST file ---->[0;0m "); 


/* open the file */ 
while (open flag == FALSE) 


readstr (stdin, dap info ptr->dpi file.fi_ fname); 
printf ("\n\n"); 
if ((dap info ptr->dpi file.fi fid = 
fopen (dap info ptr->dpi file.fi fname, "r")) == NULL) 


printf ("\nUnable to open file %s|n",dap info ptr->dpi file.fi fname); 
ring the bell(); 
printf ("Please reenter valid filename\n"): 
printf ("(7;7m"); 
printf ("\nWhat is the name of the DBD/REQUEST file --->[0;0m "); 
} /* end if * / 
else 


open flag = TRUE; 
} /* end while */ 


/* now read in the transactions " / 
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f read file(): 


#ifdef EnExFlag 
printf ("Exit f read transaction file\n"); 


#endif 
} /* end f_read transaction file */ 


f read file() 
{ 
struct temp str info *new t ptr, /* ptrs to linked list of 80 col input ", 
*curr t ptr, 
*head t ptr, 
*f rd temp str_info(): 
struct dap req info *new req ptr, /* ptrs to request list */ 
*curr req ptr, 
*sub_ req ptr. 
tdap reg info alloc(); 
Int 1, 
first subreq, /* boolean flag * / 
first req,  /* boolean flag * / 
first line,  /* boolean flag */ 
length so far, /* length of a single transaction */ 
EOF flag, /* boolean flag */ 
EOR flag, /* boolean flag */ 
EOS flag; = /* boolean flag */ 


char *var str alloc(); 


/* This routine reads a file of transactions into */ 
/* the user's request list structure. sr 


#ifdef EnExF lag 
printf ("Enter f read fileln"); 
#endif 


first req = TRUE; 
EOF flag = FALSE; 


/* create the request list from the inner loop’s line list */ 
while (EOF flag == FALSE) 
{ 

EOS flag = FALSE; 

EOR flag = FALSE; 

length so far = 0; 

first line = TRUE; 

first subreq = TRUE; 


/* create a line list for each request read. 
/* each node represents a line of the request */ 
while (EOR flag == FALSE) 

{ 


5 
L 
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/* allocate a line * / 
new t pir = f rd temp str info (&EOS flag, &XEOR flag, &EOF flag); 
if (new _ t ptr! '= NULL) 
{ 
length so far = length so far + strlen (new t ptr->tsi str); 
if (first | line == TRUE) 
{ 
/* line is the first on the list so set appropriate ptrs */ 
head t ptr = new t ptr; 
curr t ptr = new t ptr; 
first line = FALSE; 
} /* end if */ 


else 


/* link line to the rest of the line list */ 
curr t ptr->tsi next = new t ptr; 
curr t ptr = new t ptr; 

a end else * 


\ /* end if * 
else 


/* check for no input situation */ 


if (EOS flag == FALSE && first line == TRUE && EOF flag == TRUE) 


dap info ptr->dap error — ErrReadFile, 
printf ("WARNING - number of requests read = 0!\n\n"); 


else 
{ 
/* allocate a request structure */ 
new req ptr = dap req info alloc(); 
/* store head t ptr as the input request a 
new req _ptr->dri_ in req = head t ptr; 
new req ptr->dri req = var _str_alloc(length : so far + 1); 
new req ptr->dri _reg[0] = = 0" 
curr t ptr = head t ptr; 


/* concatenate line list to form a request node */ 


while (curr t_ptr != NULL) 


strcat (new req ptr->dri_req, curr t ptr->tsi str); 
curr t ptr = curr t _ptr->tsi next; 


} /* end while */ 


/* capitalize the request " / 
to caps (new req ptr->dri req); 
new req ptr->dri req len = length so far; 
new req _ptr->dri sub req = NULL; 
new req ptr->dri next req = NULL, 
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if (EOS flag == TRUE) 
{ 
if (first subreq == TRUE) 
{ 
sub req ptr = new req ptr; 
curr req ptr = new req ptr; 
first subreq = FALSE; 
} /* end if */ 
else 
{ 
curr req ptr->dri sub req = new req ptr: 
curr req ptr = new req ptr; 
} /* end else */ 


length so far = 0; 
first line = TRUE, 
} /* end if */ 
\ /* end else */ 


) /* end while EOR flag = FALSE */ 


if (firs. req == TRUE) 
{ 
if (EOS flag == TRUE) 
{ 

/* request is the first on the sublist so set appropriate ptrs */ 
tran info ptr->ti first req.r1 dap req = sub req ptr; 
tran info ptr->ti curr req.ri dap req = sub req ptr; 

} /* end if */ 
else 
{ 

/* request is the first on the list so set appropriate ptrs " / 
tran info ptr->ti first req.ri dap req = new req ptr; 
tran info ptr->ti curr req.ri dap req = new req ptr; 

} /* end else */ 
++tran info ptr->ti no req; 
first req = FALSE; 
) /* end if first req = TRUE */ 
else 
{ 
if (EOS flag == TRUE) 
{ 
tran info ptr->ti_ curr req.ri dap req->dri_ next req = sub req ptr; 
tran info ptr->ti curr req.ri dap req = sub req ptr; 
} /* endif */ 
else 
{ 
tran info ptr->ti curr req.ri dap req->dri_ next req = new req ptr; 
tran info ptr->ti curr req.ri dap req = new req ptr; 
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) /* end else */ 
++tran info ptr->ti no reg; 


} i end else first req = FASE E 
) a end while EOF flag = FALSE i 


+ifdef EnExFlag 
printf ("Exit f read file\n"); 
#endif 


} /* end f read file *, 


f read terminal() 


{ 


/* This function prompts the user to input DAPLEX requests * / 
/* from their terminal = 


#ifdef EnExFlag 
printf ("Enter T read terminal\n"); 


+endif 


/* set input device to be the terminal * 

dap info ptr->dpi file.fi hd = stdin: 

printf ("\nPlease enter your transactions one at a time.\n"); 

printf ("You may have multiple lines per transaction. \n"); 

printf ("Each transaction must be separated by a line that\n"); 
printf ("\tonly contains the character ’@’.\n"); 

printf ("If you have multiple requests per transactions, seperate\n"); 
printf ("\tthem by the character ”!’.\n"); 

printf ("After the last transaction, the last line must consist only\n"); 
printf ("\tof the ’$’ character to signa] end-of-file.\n\n\n"); 

printf ("|7;7m Input the transactions on the following lines :/0;0m\n\n"); 


/* now read in the transactions */ 


f read file(); 


#ifdef EnExFlag 
printf ("Exit f read terminalln"); 
+#endif 


) /* end f read terminal */ 
static struct temp str info *f rd temp str info(EOS flag, EOR flag, EOF flag) 
int “EOS flag, /* boolean flags */ 


*EOR flag, 
*EOF flag; 


struct temp str info "temp str info alloc(), 
*temp ptr; /* ptrs to new temp str info structs * / 
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int i /* counter */ 
/* This routine fills an allocated line list node */ 
/* and sends back a pointer to the node. = 


#ifdef EnExFlag 
printf ("Enter f rd temp_str_info\n"); 
#endif 


/* set a ptr to the allocated line */ 
temp ptr = temp str info alloc(); 


/* now read in a line of input */ 
readstr (dap info ptr->dpi file.fi fid, temp ptr->tsi str); 
for (1 = 0; temp ptr->tsi str[il != "V0"; i++) 


3 
d 


temp ptr->tsi strli++) = 
temp pur->tsi strii = "10"; 

temp ptr->tsi next = NULL: 

/* check for end-of-subrequest (’!’) * / 

if (temp ptr->tsi_stri0 == EOSubrequest) 


“EOS flag = TRUE: 


#ifdef EnExFlag 
printf ("Exitl f rd temp str _info\n"); 
#endif 


return (NULL); 
} /* end if */ 


else 
/* check for end-of-request (’Q’) */ 
if (temp ptr->tsi str[0] == EORequest) 


*EOR flag = TRUE; 


#ifdef EnExFlag 
printf ("Exit2 f rd temp str infoln"); 
#endif- 


return (NULL); 
} /* end if */ 
else 
/* check for end-of-file (’$’) */ 
if (temp ptr->tsi_str[0 == EOFile) 


*EOR flag = TRUE; 
*EOF flag = TRUE; 
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#ifdef EnExFlag 
printf ("Exit3 f rd temp str info\n"); 
#endif 


return (NULL); 
) /* end else if */ 


else 


#ifdef EnExFlag 
printf ("Exit4 f rd temp str infoln"); 
#endif 


return (temp ptr); 


) /* end f rd temp str info */ 


EEE buildddl.e 


#include <stdio.h> 
+#include "licommdata.def" 
#include "struct.def" 
#include "flags.def" 
include "lil.ext" 


f build ddl files() 
/* This routine is used to create the MBDS template and descriptor files * / 


{ 


struct ddl info *ddl info alloc(); 


#ifdef EnExF lag 
printf("Enter f build ddl file\n"); 
#endif 


if (dap info ptr-> dpi ddl files == NULL) 
dap info ptr -> dpi ddl files = ddl info allocí), 


f build template file(); 
f build desc file(), 
#ifdef EnExFlag 
printf("Exit f_ build ddl file\n"); 
endif 


/* f build desc file();*/ 
} 
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f build template file() 


{ 


/* This routine builds the MBDS template file for a new daplex */ 
/* database that was just created. */ 


struct fun dbid node “db ptr; 
struct ent node *ent ptr; 
struct gen sub node “gen ptr; 
struct function node “*funct ptr; 


struct file info “f ptr; 
char temp stríNUMDIGIT + 1); 
char get fun type(); 
#ifdef EnExFlag 
printf("Enter f build template fileln"); 
# endif 
/* Begin by setting the pointers to the dap info data structure */ 
/* that is maintained for each user of the system. a 


db ptr = dap info ptr->dpi curr db.cdi db.dn fun, 
f ptr = &(dap info _ptr->dpi | ddl _files->ddli Re 


/* Next, copy the filename where the MBDS template information will *, 
/* be stored. This filename is constant and was obtained from K 

/* licommdata.def. */ 

strepy(f ptr->fi fname, FTEMPFname); 

/* Next, open the template File to be created: 2 
if ((f_ptr->fi fid = fopen{f ptr->fi fname,"w")) == NULL) 


printf("Unable to open %s\n", FTEMPFname); 
ring the bell(); 


#ifdef EnExFlag 


printf("Exit1 f build template fileln"); 


#endif 


return; 


| 


/* Next, write out the database name & number of files : hj 
fprintf(f_ptr->fi_fid, "%s\n", db_ptr->fdn name); 

num to _str(db _ptr->fdn num ent + db ptr->fdn_num gen, temp str); 
fprintf(f ptr->fi fid, "sin", temp _str); 


/* Next, set the pointer to the first entity: S 
ent ptr = db ptr->fdn_entptr; 


/* While there are more entities to process, write out the number 
/* of functions (+2 for the attribute "FILE" and the key value attribute) */ 
/* and the entity name: 2 

while (ent_ptr '= NULL) 


116 


{ 


num to str((ent ptr->en num funct + 2), temp str); 
fprintf(f_ pur->fi fid, " %s\n", temp str); 
fprintf(f_ptr->fi fid. "%sin", ent_ptr->en name); 


/* Print out the onstant attribute "FILE s" and key value attribute */ 
fprintf(f ptr->fi_nd. "FILE s\n"); 

fprintf(f ptr->fi_fid, "%s i\n", to caps(ent ptr-Xen name)): 

/* Now, set the pointer to the first function: å 
funct pur = ent pur->en ftnper: 

wr all funct attr(f ptr->fi fid. funct ptr); 

/% set the pointer to the next entity: El 
ent ptr = ent ptr->en next ent; 


y /* end while ent pir * 


/* Next. set the pointer to the first gen sub node : "R 
gen ptr = db ptr->fdn_subptr: 


/* While there are more sub nodes to process, write out the number S 
/* of functions (-2 for the attribute "FILE" and the kev value attribute) *. 
/* and the entity name: os 


while (gen ptr '= NULL) 


num_to str((gen ptr->gsn num funct + 2), temp str); 
fprintf(f ptr->fi fid, "%sin", temp str); 
fprintf(f ptr->fi_ fd. "%s\n", gen  ptr->gsn name); 


/* Print out the constant attribute "FILE s" and key value attribute "/ 
fprintf(f_ptr->fi_fid. "FILE s\n"); 
fprintf(f ptr->fi_fid, "%s i\n", to caps(gen ptr->gsn name)); 


/* Now, set the pointer to the first function: = 
funct ptr = gen _ptr->gsn_ftnptr; 
wr all funct attr(f ptr->fi fid, funct ptr); 


/* set the pointer to the next gen sub node: å 
gen ptr = gen ptr->gsn next genptr; 


y /* end while gen ptr */ 


/* Finally, close out the file and exit this routine: SÅ 


felose(f ptr->fi fid); 


#ifdef EnExF lag 

printf("Exit2 f build template file\n"); 
nr 
} 


wr all funct attr(fid, funct ptr) 


FILE *fid: 
struct function node *funct ptr; 
{ 
#ifdef EnExF lag 
printf("Enter wr all funct attr\n"); 
#endif 
/* While there are more attributes to process, a 
/* print out attr. name & type: a 


while (funct ptr != NULL) 
fprintf(Kid, "%s %cAn", funct ptr->fn name, get fun type(funct pir)); 


/* Set the pointer to the next function: = 
funct ptr — funct ptr-Dnext, 


) /* end while funct ptr 2 


#ifdef EnExF lag 
printf("Exit wr all funct attr\n"); 
#endif 
) 


char get fun typelfptr) 
struct function node *fptr; 
{ /* begin get fun type */ 
char fun type; 


#ifdef EnExF lag 


printf("Enter get fun typeln"); 
#endif 


switch (fptr->fn type) 


case I :; 

case f’:; 

case ’s’ : fun_type = fptr->fn type; 
break; 

case ”b' : fun type = 71; 
break; 


case ’e’: if (fptr -> fn entptr != NULL || 

fptr -> fn subptr != NULL) 

fun type = 71; 
else if (fptr -> fn nonentptr != NULL) 

fun type = fptr -> fn nonentptr -> enn type; 
else if (fptr -> fn nonsubptr != NULL) 

fun type = fptr -> fn nonsubptr -> snn type; 
else if (fptr -> fn nonderptr != NULL) 

fun type = fptr -> fn nonderptr -> dnn type; 
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if (fun type ==’e’) 
fun type = 's’; 
break; 
) /* end switch */ 


#ifdef EnExFlag 
printf("Exit get fun typeln"); 
#endif — 
return(fun type); 


} /* end get fun type */ 
6. FILE: builddesc.c 


#include <stdio.h> 
+include "licommdata.def" 
#include "struct.def" 
include "flags.def" 
+include "lil.ext" 

#include "dap.ext" 
#include <strings.h> 
#include <ctype.h> 


f build desc file() 


/* still not 1 or f type */ 


/* This routine builds the Descriptor File to be used by the MBDS in the "/ 


/* creation of indexing clusters: 


E 


struct fun dbid node “db ptr; /* database pointer Œ 
struct ent node a /* entity node ptr s 
struct gen sub node *gen ptr; /* gen sub node ptr = 
struct descriptor node *desc _head ptr, /* pointers to Desc node..*/ 
*ask all fun nodes(); 
struct file info *f ptr; /* File pointer a 
int index, 
str len; 
#ıfdef EnExFlag 


printf("Enter f build_desc_file\n"); 
#endif 


/* Begin by setting the pointers to the dap info data structure that is */ 


/* maintained for each user of the system: 


*/ 


db ptr = dap info ptr->dpi curr db.cdi db.dn fun; 
f ptr = &(dap info _ptr->dpi_ ddl _files->ddli _desc); 


/* Next, copy the filename where the MBDS Descriptor File information */ 
/ will be stored. This filename is Constant, and was obtained from ve 


/* licommdata.def: 
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* / 
/ 


strcpy(f ptr->f fname, FDESCFname); 


/* Now, open the Descriptor File to be created: Er 
f ptr->fi fid = fopen(f ptr->fi_fname, "w"); 


/* The next step is to traverse the Linked List of entities in the data- */ 

/* base. There are two reasons for doing so: First, to write the sy 

/* entity Names to the Descriptor File as EQUALITY Descriptors; this is */ 
/* done automatically with any Daplex Database, is a necessary element */ 


/* of any Descriptor File created from such a Database. and requires ca 
/* no user involvement. Second, it allows us to present the Entity S 

/* Names (without their respective Attributes} to the User, as a memory */ 
/* jog: */ 


system("clear"); 

fprintf(f ptr->fi fid, "%s\n'", db ptr->fdn name); 
fprintf(f ptr->fi fid. "template C s\n"); 
printf("\nThe following are the Entities in the "): 
printf("%s Database: |n|n", db ptr->fdn name); 


ent ptr = db ptr->fdn entptr; 


/* Traverse all entity nodes € 
while (ent_ptr != NULL) 
{ 
fprintf(f_ ptr->fi_fid, "! %c", ent ptr-xen namel0) ) 
str len — strlen( ent ptr->en name ), 
for(index = 1; index < str len: index++) 
if BE ann 7 _ptr->en namelindex])) 
fprintf(f_ptr->fi fid, "%c", tolower( ent ptr->en namelindex| )); 
else 
fprintf(f_ptr->fi fid, "%c", ent ptr->en namelindex|); 
fprintf(f ptr->fi_fid, An"): 
printf{"\n\t%s", ent ptr->en name); 
ent ptr = ent ptr->en next ent; 


} Er End "while (ent ptr = NULL)" < 
gen ptr = db ptr->fdn subptr; 


/* Traverse all gen sub nodes a 
while (gen ptr != NULL) 
{ 
fprintf(f_ptr->fi_fid, "! %c", gen ptr->gsn_name(0O] ); 
str len = strlen( gen _ptr->gsn_ name ); 
for(index = 1; index < str len; index++) 
if ee 
fprintf(f ptr->fi fid, "%c", tolower( gen ptr->gsn namelindex| )); 
else 
fprintf(f ptr->fi fid, "%c", gen ptr->gsn namelindex|); 
fprintf(f ptr->fi fid, "Vn"); 
printf("\n\t%s", gen_ptr->gsn_ name); 
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gen ptr = gen ptr->gsn | en _genptr; 
) /* End "while (gen peri NULL)" *) 


/* Each Descriptor Block must be followed by the "@" sign: g 
fprintf(f ptr->fi_fid. "@\n"); 


/* Now. inform the user of the procedure that must be followed to create */ 
/* the Descriptor File: 47 
printf("\n\nBeginning with the first Entity. we will present each"); 
printf("\nfunction of the entity. You will be prompted as to whether"): 
printf("\nyou wish to include that function as an Indexing Attribute."): 
printí(" nand. if so. whether it is to be indexed based on strict"); 

printf("\n EQUALITY. or based on a RANGE OF VALUES."): 

printf("\n nStrike RETURN when ready to continue."); 

dap info ptr->dap answer = get ans(&index): 


/* Initialize the pointer to a Linked List that will hold the results * 
/* of the Descriptor Values. then return to the first entity of the p 
/* database and begin cycling through the individual attributes: 


desc head ptr = NULL: 


ent ptr = db ptr->fdn entptr: 
while (ent pir != NULL) 
{ 
desc head ptr = 
ask all fun nodes(desc head ptr. ent ptr->en name, ent ptr->en ftnptr): 


ent pir = ent ptr->en next ent 


} /* End while */ 


gen ptr = db ptr->fdn subptr; 
while (gen pur != NULL) 
{ 
desc head ptr = 
ask all fun _nodes(desc head ptr, gen ptr->gsn name, gen ptr->gsn ftnptr); 
gen ptr = gen ptr->gsn next genptr; 


} /* End while */ 


/* Now. we will traverse the Linked List of Descriptor Attributes and 
/* Values which was created, writing them to our Descriptor File: / 


* / 


wr all desc values(f ptr->fi fid, desc head ptr); 
felose(f | ptr->fi_fid); 


#ifdef EnExFlag 
printf("Exit f build desc file\n''); 
%endif 
) 


struct descriptor node *ask all fun nodes(desc head pur, en name, funct ptr) 


struct descriptor node “desc head ptr: 
char en namelENLength - 1): 
struct function node “funct ptr; 


struct descriptor node “desc node ptr, 
"descriptor node alloc(), /* Allocates Nodes */ 


struct value node *valuenode ptr; /* points to Value Node */ 
int num, La an 
found, /* Boolean flag id 
goodanswer; /* Boolean flag ay 
#ifdef EnExF lag 
printf("Enter ask all fun _nodes\n"); 
+#endif 


while (funct ptr != NULL) 

{ 

if (funct ptr->fn_entptr == NULL && funct_ptr->fn_subptr == NULL) 
{ 


system("clear"): 
printf("Entity name: %s'n", en name): 
printf("Function Name: %sl|nin", funct ptr->fn name); 


/* Now. traverse the Attribute linked list that is being created, */ 

/* to see if the current Attribute has already been established as */ 

/* a Descriptor Attribute. If so, offer the user the opportunity */ 

/* to add additional EQUALITY or RANGE OF VALUE values; otherwise, */ 
/* offer the user the opportunity to establish this as a Descriptor * / 

/* Attribute: på 

desc node ptr = desc head ptr; 

found = FALSE; 

while ((desc node ptr != NULL) && (found == FALSE)) 


if (stremp(funct_ptr->fn name, desc node ptr->attr name) == 0) 


/* The Attribute HAS already been chosen as a Descriptor. */ 
/* Allow the user the option of adding additional Descriptor */ 
/* values, after listing those already entered: Er 


printí("inThis Attribute has been chosen as an Indexing Attribute.\n"); 
printf("The following are the values that have been specified:\n\n"); 
found = TRUE; 

valuenode ptr = desc node ptr->first value node; 

while (valuenode ptr != NULL) J = 


if (desc_node_ptr->descriptor type == ’A’) 
printf("\t%s %s\n", valuenode ptr->valuel, 
valuenode ptr->value2); 
else 
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printf("\t%s\n", valuenode ptr->value2); 
valuenode ptr = valuenode ptr->next value node; 
} /* End "while (valuenode ptr != NULL)" */ 
printf("\nDo you wish to add more "); 
if (desc node ptr->descriptor type == ’A’) 
printf(" RANGE"); 
else 
printf("EQUALITY"); 
printf(" values? (y or n)\n"); 
dap info ptr->dap answer = get Bun) 
if ((dap_ info _ptr->dap_ answer == y") | 
(dap | info _ptr->dap answer == ’Y’)) 


/* The user DOES wish to add more descriptors to the S 


/* currently existing list: El 
{ 
if (desc node ptr->descriptor type == ’A’) 
build _RAN descrip(desc_node ptr, funct ptr->fn total length); 
else 


build EQ descrip(desc_ node ptr. funct Don total length): 
} /* End "if ((dap info _ptr->dap answer == ’y’) || 
(dap info ptr->dap answer = = Y Di er 
GE End "ıiflsırempe.) — 0) © 
desc node ptr — desc node ptr->next desc node: 
} /* End "while ((desc node ptr'— NULL) && (found..))" */ 


if (found == FALSE) 


/* The Attribute has NOT previously been chosen as a Descriptor. */ 
/* Allow the user the option of making this a Descriptor Attri- */ 


/* bute, with appropriate Descriptor Values: = 


printf("\nDo you wish to install this function as an "); 
printf("Indexing Attribute?\n\n"); 

printf("\t(n) - no; continue with next Attribute/Relation\n"); 
printf("\t{e) - yes; establish this as an EQUALITY Attribute\n"); 
printf("\t(r) - yes; establish this as a RANGE Attribute\n"); 
goodanswer = FALSE; 

while (goodanswer == FALSE) 


dap info ptr->dap answer = get _ans(&num); 
switch(dap info ptr->dap answer) 
case ’n’: /* User does NOT want to use this as an ~ 
/* Indexing (Descriptor) Attribute: a 
goodanswer = TRUE; 
break; 
case ’e’: /* User wants to use this as an EQUALITY E 
/* Attribute: p 
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goodanswer = TRUE; 
desc node ptr — descriptor node alloc(), 
desc node _ptr->next desc node = = desc head ptr; 
desc head pir = desc node pir; 
strepy(desc node ptr->attr name, funct ptr->fn name): 
desc node ptr->descriptor type = 'B', 
desc node ptr->value type = get fun type(funct ptr); 
desc node ptr->first ` value node = NULL; 
build EQ _descrip(desc node pir, 
funct ptr->fn total length); 
break: 


case 'r': /* User wants to use this as a RANGE Attribute: */ 
goodanswer = TRUE; 
desc node ptr = descriptor node _alloc(); 
desc node ptr->next desc node = desc head ptr; 
desc head ptr = desc_node ptr; 
strepy(desc node ptr->attr name. funct ptr->fn name): 
desc node ptr->descriptor type = °A’; 
desc node ptr->value type — get fun type(funct ptr); 

desc node ptr->first value node = NULL; 
build RAN _descrip(desc node HEE 
funet _ptr->fn_ total length); 

break: 


default: /* User did not select a valid choice: | 
printf("\nError - Invalid operation selected;\n"); 
printf("Please pick again\n"); 
break; 
} /* End Switch */ 
} /* End "While (goodanswer = FALSE)" */ 
+ End "if (found == FALSE)" */ 


y /* End "if (funct ptr->fn entptr...." */ 


funct ptr = funct ptr->next; 
y /* End "while (funct ptr != NULL)" */ 


#ifdef EnExFlag 
printf("Exit ask all fun nodes|n"); 
#endif 


return(desc head ptr); 


) 
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7. FILE: buildcomm.c 


+include <stdio.h> 
+include "licommdata.def" 
+include "flags.def" 
+include <ctype.h> 
#include <strings.h> 


build EQ descripídesc node ptr, attr length) 
struct descriptor node “desc node ptr; 


int attr length; 


/* This routine builds the EQUALITY Descriptor list for the current S 


/* Attribute: a 

int end routine: * Boolean flag 

int index: '* Loop Index * 

int loop count: = Loop Index 

int val count; * Loop Index * 
int str len; /* Length of input */ 
char *temp value: /* Holds answer "7 
char *var str alloc(); /* Allocates Sur. */ 


struct value node *valuenode ptr, /* Points to Value Node */ 


*value node alloc(); /* Allocates Value Nodes */ 


Fıfdef EnExFlag 
printf("Enter build EQ descrip\n"); 
#endif 


/* Repetitively offer the user the opportunity to create EQUALITY de- */ 
/* scriptors for the current Attribute, halting when the user enters = 
/* an empty carriage return ("<CR>"). = 


temp value = var str alloc(attr length + 1); 
end routine = FALSE; 
while (end routine == FALSE) 
{ 
printf("\nEnter EQUALITY match value, or <CR> to exit: "); 
readstr(stdin, temp value); 
str len = strlen( temp value ); 
for (index = 0; temp valuelindex| == ” *; index++) 


if str_len != index ) 
{ 
valuenode ptr = value node _alloc(attr length); 
valuenode ptr->next value node = desc node ptr->first value node; 
desc node ptr->first value node = = valuenode ptr, 
strepy (valuenode _ptr->valuel, au): 
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/* Convert first character in temp value to upper case if nec. */ 
if (islower(temp valuelindex|)) 
temp valuejindex) — toupper( temp valuejindex, ); 


/* Convert remaining chars in temp value to lower case if nec. */ 
fort loop count = index + 1; loop count <= str len; loop count++) 
if (isupper(temp value|loop count])) 
temp valuelloop count) = tolower( temp value|loop count! ); 


/* Store temp value into value2 from index to end of string. */ 
val count = 0: 


for( loop count = index: loop count <= str len: loop count--) 


valuenode ptr->value2ival count+-| = temp valuelloop count): 
valuenode ptr->value2jval count) = ’\0’; 
else 


end routine = TRUE: 
j 


free(temp value); 


#ifdef EnExFlag 
printf("Exit build EQ descrip\n"): 
#endif 
) 


build RAN descrip(desc node ptr, attr length) 


struct descriptor node tdesc node ptr: 
int attr length, 


{ 
/* This routine builds the RANGE OF VALUEs Descriptor list for the pr 


/* current Attribute: ne 
int end routine; /* Boolean flag en 
int good upper value, /* Boolean flag K 
int index: /* Loop Index = 
int loop count; /* Loop Index */ 
int val count; /* Loop Index */ 
int str len, /* Length of input */ 
struct value node *valuenode ptr, /* Points to Value Node */ 
*value node alloc(), /* Allocates Value Nodes */ 
char "temp value, /* Holds answer */ 
char "var str alloc(); /* Allocates Str. */ 
#ifdef EnExFlag 
printf("Enter build RAN descrip\n"); 
#endif 
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/* Repetitively offer the user the opportunity to create RANGE OF VALUE */ 
/* Descriptors for the current Attribute, halting when the user enters */ 
/* an empty carriage return ("<CR>"). a 


temp value = var str alloc(attr length + 1); 
end routine = FALSE; 
while (end routine == FALSE) 


printf("\nEnter Lower Bound, or <CR> to exit: "); 
readstr(stdin. temp value); 

str len = strlen( temp value ); 

for (index = 0; temp valuelindex| == ” ”; index++) 


a str_len != index ) 
{ 
valuenode ptr — value node alloc(), 
valuenode ptr->next ` value node = desc _node ptr->first value node; 
desc node ptr-D first ` value _node = — valuenode _ ptr; 


/* Convert first character in temp value to upper case if nec. */ 
if (islower(temp valueiindex|)) 
temp valueiindex' = toupper( temp valueiindex| ) 


/* Convert remaining chars in temp value to lower case if nec. */ 
for| loop count = index — 1; loop count <= str len; loop count++) 
if (isupper(temp per _count])) 
temp valuelloop count) = tolower( temp value[loop count] ); 


/* Store temp value into valuel from index to end of string. */ 

val count = 0; 

for( loop count = index; loop count <= str len; loop count++) 
valuenode ptr->valuel|val count++] = O er å) 

valuenode ptr->valuellval count] = ’\0’; 


good upper value = FALSE; 
while (good upper value == FALSE) 


printf("\nEnter Upper Bound:"); 

readstr(stdin. temp value); 

str len = strlen(temp value); 

for (index = 0; temp valuefindex| ==" "; index++) 


if (str len != index) 


/* Convert first character in temp value to upper case if nec. */ 
if (islower(temp value[index])) 
temp value[index] = toupper( temp valuejindex; ); 


/* Convert remaining chars in temp value to lower case if nec. */ 


for( loop count = index + 1; loop count <= str len; loop _count++) 
if (isupper(temp Er les _count])) 
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temp valuelloop count = tolower( temp valuelloop count! ): 


/* Store temp value into valuel from index to end of string. */ 

val count = 0; 

for( loop count = index; loop count <= str len; loop count+—) 
valuenode ptr->value2ival count-+' = temp value|loop count]; 

valuenode ptr->value2|val count] = ’\0’; 


good upper value = TRUE; 
) 
else 
printf("\nYou must supply a non-blank Upper Bound.\n"): 


| 


else 
end routine = TRUE; 
) 
#ifdef EnExFlag 
printf("Exit build RAN descrip\n"); 
+endif 
) 


wr all desc values(fid, desc head ptr) 


/* This routine traverse the linked list of descriptor attributes co 
/* and write all descriptor values out to the Descriptor file = 

FILE *fid; 

struct descriptor node *desc head ptr; 

{ 

struct descriptor node *desc node ptr; 

struct value node *valuenode ptr; /* points to Value Node */ 
#ifdef EnExFlag 


printf("Enter wr all desc values\n"); 


+#endif 
desc node ptr = desc head ptr; 


while (desc node ptr != NULL) 


{ 
if (desc node ptr->first value node != NULL) 


fprintf(fid, "%s %c cn", desc node ptr->attr name, 
desc node ptr->descriptor type, 
desc node ptr->value type); 
valuenode ptr = desc node ptr->first value node; 
while (valuenode ptr != NULL) Ñ 
{ 


fprintf(fid,"%s %s\n", valuenode_ptr->valuel, 
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valuenode ptr->value2); 
valuenode ptr = valuenode ptr->next value node: 
y /* End "while (valuenode pur != NULL)" > 


fprintf(fid."G@\n"): 
y /* End "if (dese node ptr->first value node != NULL) ": 


desc node ptr = desc node ptr->next desc node; 
y /* End "while (dese node ptr!= NULL)" */ 
fprintf(fid, "S\n"): 
#ifdef EnExFlag 
printf( "Exit wr all desc values|n"): 


=endif 


} 
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APPENDIX C 
THE KMS MODULE 


1. PIRES 


A 


#include <stdio.h> 
#include <strings.h> 
#include "licommdata.def" 
#include "struct.def" 
#include "dap.ext" 
+include "lil.ext" 

#include "kms.del" 
include "flags.def" 


int serror: 

int in, found: 
int curr op: 

int dml reg len: 


int enum length: /* length of enumeration string * / 

int funct count=0; 

int use prev name; /* boolean flag to indicate whether prev name *, 
/* is used in function type declaration i 


int rel operator; 
int in Op, 
int literal type, 


char temp stríNUMDIGIT - 1): 
char db[DBNLength + 1); 

char temp valuelENLength - 1), 
char temp name id|ENLength + 1]; 
char temp|ENLength + 1); 

char base name|ENLength + 1); 
char *enum str; 

char "var str alloc(); 

char *mem per; 


struct fun dbid node *db ptr; 

Struct ent non node "ent non node alloc(), 
*ennptr; 

struct ent value "ent value alloc(), 
*entval ptr, 


*entval ptr2; 

struct sub non node — "sub non node alloc(), 
*snnptr; 

struct der non node *der non node alloc(), 
*dnnptr; 
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struct ent node "ent node alloc(), 
*search entity(), 
*entptr, 
*last entptr, 
*new entptr; 

struct gen sub node “new gen sub nodel), 
*search gensub(), 
*subptr, 
*new subptr, 
"last subptr, 
"the subptr, 

struct ent node list "ent node list alloc(), 
*enl ptr; 

struct sub node list *sub node list alloc(), 
*snl ptr; 

struct function node *function node alloc(), 
*search funct(), 
*funct ptr, 
"last funct ptr, 
"first funct ptr; 


struct overlap node “overlap node alloc(). 
*ovr pr; 
struct dap kms info *dap kms info alloc(); 
struct ident list *ident list alloc(). 
*id_ ptr, 
*temp ptr, 


*new temp ptr; 
struct dap create list *create listl, 
*create list2, 
*dap create list alloc(); 
struct dap create list *del ptr; 
struct dap av pair list *av ptr; 
struct req line list *req pir; 


struct dml statement  *dml statement alloc(); 
struct dap expr info *dap expr info alloc(), 
*dap expr ptr; 


struct relation list *relation list alloc(), 
p *rel list ptr; 5 
struct funct appln *funct appin alloc(), 
p *funct appln ptr; 
struct ent info "ent info ptr alloc(), 
p *ent info ptr; 
struct set constructor — set constructor allocí), 
F *set_construct ptr; 
struct set construct2 *set construct2 alloc(), 
*set_construct2 ptr; 
+ 


set construct3 alloc(), 
*set construct3 ptr; 
struct loop info *loop info alloe(), 
E p *loop_info ptr; 


struct set construct3 
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struct domain info 
struct simple expri 


struct simple expr2 
struct simple exprò 
struct simple exprá 


struct dap range info 


struct basic expr list 


struct order comp list 


struct comp assoc list 


struct indexed component 


struct dml statement2 list 


%) 
union 


char str[90); 
) 


%token AND 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
Cant oken 
%token 
%token 
%token 
%token 
%token 


AVG 
BOOLEAN 
BY 
CONSTANT 
COUNT 
CREATE 
DATABASE 
DELTA 


DESTROY 
DIGITS 
EACH 
ELSE 
END 
ENTITY 
EVERY 
EXCLUDE 
FALSE T 


ASCENDING 


DESCENDING 


*domain ptr; 

"simple expri allocí), 

simple expr ptr; 

simple expr2 alloc(); 

simple expr3_alloc(): 

simple expr4_alloc(); 

*dap range info alloc(). 

*dap range ptr; 

*basic expr list alloc(), 

“new basic expr ptr, 

*basic expr ptr; 

“order comp list alloc(), 

order comp ptr; 

comp assoc list alloc(), 

new comp assoc ptr, 

comp assoc ptr; 

*ındexed component alloc(), 
*new indexed comp ptr, 
“indexed comp ptr; 

*dml statement2 list alloc(), 
*dml statement2 list ptr: 


x 
* 
* 
* 


x 
* 
* 
* 
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%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 


%token N 
%token ! 


%token 


%token I 


%token N 


%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 


%token 
%token 
%token 
%token 


%token 
%token 
%token 
%token 


FLOAT 
FOR 
FROM 
IMAGE 
INCLUDE 
INTEGER 
INTO 


OVERLAP 
POS 

PRINT LINE 
PRINT 
RANGE 
SET 

SOME 
STRING 
SUBTYPE 
SUM 

THEN 
TRUE T 
TYPE 
UNIQUE 
VALUE 
VAL 
WHERE 
WITHIN 
WITHNULL 
WITHOUTNULL 
WITH 

XOR 


IDENTIFIER 
CHARACTER STRING 
FLOAT LITERAL 
INTEGER LITERAL 


<str> 
<str> 
<str> 
<str> 


ELIPSES 
DOT 
ASSIGN 
COLON 
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%token IMPLY 
%token EQ 
%token NE 
%token GE 
%token GT 
%token LE 
%token LT 
%token COMMA 
%token SEMICOLON 
%token LP 
%token RP 
%token LCB 
%token RCB 
%token HYPHEN 


start statement 
RR 


statement: 
ddl statement 
E 
db ptr = cuser dap ptr->ui li type.li dap.dpi curr db.cdi db.dn fun; 
) 


dml statement 


3 


/* Three ident list struct are maintained in dap kms info: ray 
/* 1. Whenever a list of identifiers is read, the name id of */ 
E each identifier is kept in the linked list dki_ temp ptr */ 
/* 2. When there is more than one list to be compared for */ 


i uniqueness, the name id of all identifiers are kept in */ 

/* the link list dki namel ptr and dki temp ptr. 7 
/* 3. The name id of type or subtype declaration are kept in */ 
E the link list dki id ptr and dki temp pir. B 

/* The new id rule below will detect duplicate declaration of R 
/* name id against dki id ptr, but will not issue an error */ 


/* message. It will set the flag "found" on instead. s 


/* Theid list rule check duplication against dki temp ptr and */ 
/* issue error message using the variable "serror". So, "serror" */ 
/* must be set before using the rule id list. 

/* Similarly, the namel and namel list rules use "serror" when */ 
/* duplication is detected against dki namel ptr. So "serror" = 
/* must also be set before hand. S 


* 


name id: IDENTIFIER 
/* this rule assigns IDENTIFIER to the variable temp value */ 
/* and trancates it if it is longer then ENLength z 
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{ 
#ifdef DYacF lag 
printf("name id %s recognized\n",$1); 
zendif 
strncpy(temp value,$1.ENLength); 
if (strlen($1) > ENLength) 


printf("warning: name id %s trancated to %s\n",$1,temp_ value); 


new id: name id 
/* Check for duplicate declaration against list pointed to */ 
/* by dki_id ptr. If not found, insert it to the list for */ 
/* subsequent comparisons of uniqueness å 


#ifdef DYacFlag 
printf("new id recognized\n"); 
#endif o 
found = FALSE; 
1d ptr = kms ptr->dki id ptr; 
while(id ptr !:= NULL && (!found)) 


if (strcmp(id_ptr->name, temp value) == FALSE) 
found = TRUE; 
else 
id pir = id ptr->next: 
) /* end while */ 
if (found) 
{ 
id ptr = ident list alloc(); 
strepy(id pur->name, temp value); 
id ptr->next = kms ptr->dki id ptr; 
kms ptr->dki id pur = id pir; 


a 
3 


new id list: /* use dki temp ptr to keep list of name id */ 
new id 


if (found) 

proc eval error(serror,temp value); 
free temp list(); 
kms ptr->dki temp ptr = ident list alloc(); 
strepy(kms ptr->dki temp ptr->name, temp value); 
kms ptr->dki temp ptr->next = NULL; 


| new id list COMMA new id 
if (found) 


proc eval error(serror,temp value); 
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temp ptr = ident list alloc(), 

strepy(temp ptr-D name, temp value); 
temp ptr->next = kms ptr->dki temp ptr; 
kms ptr->dki temp ptr = temp ptr; 


id list: 

name id 
{ 
free temp list(); 
kms ptr->dki temp ptr = ident list alloc(); 
strecpy(kms ptr->dki temp ptr->name, temp value); 
kms ptr->dki temp ptr->next = NULL; 


| id list COMMA name id 


found = FALSE; 
temp ptr = kms ptr->dki temp ptr; 
while ((temp ptr != NULL) && ('found)) 


if (stremp(temp_ptr->name. temp value)== FALSE) 
found = TRUE; 

else 
temp ptr = temp ptr->next; 


if (found) 
i 
temp ptr — ident list alloc(); 
strepy(temp ptr->name, temp value); 
temp ptr->next = kms ptr->dki temp ptr; 
kms ptr->dki temp ptr = temp ptr; 


else /* found duplicate " / 
proc eval error(serror,temp value); 


) 


namel: name id 
{ 
#ifdef DYacFlag 
printf("enter namel\n"); 
#endif 
found = FALSE; 
temp ptr = kms ptr->dki namel ptr; 
while ((temp _ptr != NULL) && (!found)) 


if (stremp(temp ptr->name, temp value)== FALSE) 
found = TRUE; 
else 
temp ptr — temp ptr->next; 
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) 
if (found) 
{ 
id ptr = ident list alloc(); 
strcpy(id_ptr->name, temp value); 
1d ptr->next = kms ptr->dki namel ptr; 
kms ptr->dki_namel ptr — id ptr, o 
) 
else 
proc eval error(serror,temp value); 
#ifdef DY acF lag 
printf("exit namel proc\n"); 
#endif 
) 


3 


namel list: /* remember to call free Sane _list before using */ 
/* namel list for the first list * 

namel 
{ 
free temp list(): 
kms ptr->dki temp ptr = ident list alloc(); 
strepy(kms ptr->dki temp ptr->name, temp value); 
kms ptr->dki temp ptr->next = NULL; 


) 
namel list COMMA namel 


temp ptr = ident list alloc(); 

strcpy(temp ptr->name, temp value); 
temp ptr->next = kms ptr->dk1 temp ptr; 
kms ptr->dki temp ptr = temp ptr; 


) 


EEE GET EE EEE EGGE 


/** ddlstatement **/ 
Kr tr 


ddl statement: 
DATABASE name id /* database name */ 


/* thefun dbid node is located and compared for correctness */ 
{ 
#ifdef DY acF lag 
printf("name id in ddl statement recognized\n"); 
#endif 
db ptr = cuser dap ptr->ui li type.li dap.dpi_curr db.cdi db.dn fun; 
if (stremp(temp value, db _ptr->fdn _name) t= FALSE) 


serror = 0; 
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proc eval error(serror,temp value); 


YYACCEPT: 


kms ptr->dki id ptr = ident list alloe(); 
strcpy(kms ptr->dki id ptr->name, temp value); 
kms ptr->dki id ptr->next = NULL: 


IS declarative item list end database SEMICOLON 


2 


end database: 
END 
IEND name id 
{ 
if (stremp(temp value. db ptr->fdn name) != FALSE) 
printf("warning: different db name declared at end, ignored\n"); 
) 


3 


declarative item list: declarative. item 
| declarative item list declarative item 


declarative item: declaration 
‚overlap rule 
| uniqueness rule 


| error SEMICOLON 


3 


overlap rule: 
OVERLAP 
{ 
serror = 13; /* duplicate identifier in list */ 
free namel list(), 


namel list 


{ 

#ifdef DYacF lag 

printf("first namel list in overlap rule part recognized\n"); 
#endif 

ovr ptr = overlap node alloc(); 

ovr ptr->num sub node = 0; 

ovr_ptr->snlptr = NULL; 

temp ptr = kms ptr->dki temp ptr; 

while (temp ptr != NULL) 


subptr = db ptr->fdn subptr; 
in = FALSE; 
while ((subptr != NULL) && (!in)) 


if (stremp(temp ptr->name, subptr->gsn name) == FALSE) 
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in — TRUE: 
/* overlap types must be terminal subtype * / 
if (!(subptr->gsn_terminal)) 
proc eval error(14,temp ptr->name); 
else 


find base type(subptr,base name): 

if (ovr_ptr->num sub node == 0) 
strcpy(ovr ptr->base type name,base name); 

else if (stremp(ovr_ptr->base type name,base name)) 
/* overlap types must have same base type */ 
proc eval error(20,temp_ptr->name); 

sn] ptr = sub node list _alloc(); 

snl ptr->subptr = subptr; 

snl_ptr->next = ovr_ptr->sn]ptr; 

ovr_ptr->snlptr = snl ptr; 

ovr ptr->num sub node++; 

) 

) 


else 
subptr = subptr->gsn next genptr; 
} /* end while */ p 
if (lin) /* undeclared subtype name */ 
proc eval error(10,temp ptr->name); 
temp ptr — temp ptr->next: 


) 


WITH namel list SEMICOLON 


{ 
#ifdef DYacFlag 

printf("second namel list in overlap rule part recognized\n"); 
#endif 

temp ptr = kms ptr->dki temp ptr; 

while (temp ptr != NULL) 


subptr = db ptr->fdn subptr; 

in = FALSE; 

while ((subptr != NULL) && (tin)) 
i 


if (stremp(subptr->gsn name, temp ptr->name) == FALSE) 
{ 
in = TRUE: 
/* overlap types must be terminal subtype */ 
if (I[subptr->gsn terminal)) 
proc eval error(14,temp ptr->name); 
else 


find base type(subptr,base name); 


if (stremp(ovr ptr->base type name.: ase name)) 
/* overlap types must have same base type */ 
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proc eval error(20,temp ptr-X name), 
snl ptr — sub node list alloc(), 
snl _ptr->subptr = = subptr; 
snl ptr->next = ovr_ptr->snlptr; 
ovr ptr->snlptr = snl_ ptr; 
ovr ptr->num_ sub node++; 


} 
) /*endin= TRUE */ 


else /* stremp == TRUE */ 
subptr = subptr->gsn next genptr; 
} 


if (in) /* undeclared subtype name */ 
proc eval error(10,temp ptr->name); 


temp ptr = temp ptr->next; 


} /* end while temp ptr *, 
ovr ptr->next = db ptr->fdn_ovrptr; 
db ptr->fdn_ ovrptr = ovr ptr; 
db ptr->fdn num ovr+-; 
#ifdef DYacF lag 
printf("overlap rule part done\n"); 


#endif 
} 


) 


uniqueness rule: 


UNIQUE 


{ 
#ifdef DYacFlag 
printf("uniqueness rule part recognized\n"); 
#endif 
serror = 13; /* duplicate identifier in list */ 


} 
id list WITHIN name id SEMICOLON 
{ 
entptr = db ptr->fdn entptr; 
subptr = db ptr->fdn subptr; 
in = FALSE; 
while ((entptr != NULL) && (!in)) 


if (strcmp(entptr->en name, temp value) == FALSE) 


in = TRUE; 
first funct ptr = entptr->en ftnptr; 


) 


else 
entptr = entptr->en next ent; 
} /* end while entptr */ 
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while ((subptr != NULL) && (!in)) 
{ 


if (stremp(subptr->gsn name, temp value) == FALSE) 
{ 
in = TRUE: 
first funct_ptr = subptr->gsn ftnptr; 
} 


else 


subptr = subptr->gsn next genptr; 
) /* end while subptr *. 


if (lin) /* undefined entity type or subtype 


proc eval error(15.temp value); 
else 


= 
/ 


/* find the function node and set its unique field to true * 


while (temp ptr != NULL) 


{ 


funct ptr = first funct ptr; 
found = FALSE: 


while ((funct pir != NULL) && (!found)) 
{ 


temp ptr = kms _ptr->dki temp ptr; 


if(stremp(temp ptr->name, funct ptr->fn name) == FALSE) 
{ 
found = TRUE; 
funct ptr->fn unique = TRUE; 
) 
else 
funct ptr = funct ptr->next; 


) /* end while funct ptr = 


if (found) /* undelared function identifier */ 
proc eval error(6,temp ptr->name); 


temp ptr = temp ptr->next; 
) /* end while temp ptr */ 


#ifdef DYacFlag 


printf("uniqueness rule part done\n"); 
#endif 


} 


3 


declaration: number declaration 
| TYPE new id 


{ 
#ifdef DYacFlag 


printf("type declaration recognized \n"); 
#endif 


strepy(temp name id, temp value); 
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} 


type declaration 


{ 
#ifdef DYacFlag 
printf("type declaration done\n"); 
#endif 
| SUBTYPE new id 
{ 
#ifdef DY acF lag 
printf("subtype declaration recognized \n"); 
#endif 
strepy(temp name id. temp value); 
) 
subtype declaration 
{ 
#ifdef DY acF lag 
printf("subtype declaration done\n"); 
#endif 
} 
number declaration: :* section 4.2.5 * 


{ 


serror = 1: /* duplicate constant name * / 
new id list COLON CONSTANT ASSIGN simple const SEMICOLON 


{ 
temp ptr = kms ptr->dki temp ptr; 
while (temp ptr != NULL) 


/* At this point ent non _node’s are filled with the */ 
/* information previously allocated in the kms info */ 


/* structure. The amount of nodes is dependent on */ 
/* the amount of names in the temp structure. mi 


add ent non node(temp ptr-X name), 
temp ptr = temp ptr->next; 
j 
simple const: 


/* dap kms info structures are built for subsequent */ 
/* nonentity node insertion into the schema Kr 


INTEGER LITERAL 
put dki ent _non(’i’, $1); 


| FLOAT LITERAL 
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i 


put dki ent non(’f’, $1); 


) 
| CHARACTER STRING 
{ 
put dki ent non(’s’, $1); 


} 


3 


type declaration: 


IS type definition SEMICOLON 


/* the following switch statement allocates a nonentity or derived " / 
/* node to the schema dependent upon the value of curr op = 


{ 


switch(curr op) 
L 
case NonEnt: 
add ent non node(temp name id); 


break: 


case Derived: 

dnnptr = der non node alloc(): 
strcpy(dnnptr->dnn_ name, temp name id ); 
dnnptr->dnn type = kms ptr->dki ent non.enn type; 
dnnptr->dnn total length = 

kms ptr->dki ent non.enn total length ; 
dnnptr->dnn range = kms ptr->dki ent non.enn range; 
dnnptr->dnn num values = 

kms _ptr->dki | ent non.enn num values ; 
dnnptr->dnn ` value = kms _ptr->dki | ent non. Ep ss 
kms _ptr->dki ent non.enn value = NULL; 
dnnptr->dnn next node = db _ptr->fdn nonderptr, 
db ptr->fdn _nonderptr = = dnnptr; 
break; 


} /* end switch */ 


| IS entity type definition SEMICOLON 


/* check if name id is on the ent list of the schema */ 
entptr = db ptr->fdn entptr; 
in = FALSE; 
while ((entptr != NULL) && (!in)) 

{ 


if (stremp(entptr->en name, temp name id) == FALSE) 
in = TRUE, 

else 
entptr = entptr->en next ent; 
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} 
if (tin) 


entptr = ent node alloc(); 
strcpy(entptr->en name, temp name id); 
entptr->en last ent id = 0; 

entptr->en num _funct = =0 

entptr->en terminal = TRUE; 
entptr->en ftnptr = NULL; 

entptr->en next ent = db ptr->fdn entptr; 
db _ptr->fdn _entptr = entptr; 

db ptr->fdn num ent+-: 


} 


if (entptr->en num funct == 0) 


entptr->en ftnptr = funct ptr: 
entptr->en num funct = entptr->en num funct + funct count; 


} 


proc eval error(3,temp name id); ‘* duplicate entity type name */ 
funct count = 0; 
last funct ptr = NULL; 


incomplete type declaration 
| plete type 


else 


J 


incomplete type declaration: /* entity */ 


SEMICOLON 


{ 
#ifdef DYacF lag 
printf("incomplete type declaration recognized \n"); 
#endif 
if (found) /* duplicate entity type */ 
proc eval error(3,temp value); 
else 
{ 
/* add entity node here */ 
entptr — ent node alloc(); 
strcpy(entptr->en name, temp value); 
entptr->en last ent id = 0; 
entptr->en num _funct = — 
entptr->en “terminal = TRUE; 
entptr->en ftnptr = = NOLL: 
entptr->en next ent = db ptr->fdn entptr; 
db _ptr->fdn _entptr = entptr; 
db ptr->fdn num ent++; 


+ifdef DYacFlag 
printf("incomplete type declaration done\n"); 


# endif 
) 
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type definition: 

enumeration type definition 

{ curr op = NonEnt; } 
| integer range 

{ curr op = NonEnt; } 
| float range 

( curr op = NonEnt; ) 
| derived type definition 


( curr op = Derived; ) 


enumeration type definition: 
LE 
/* enumeration dap kms info structures for */ 
/* nonentity and function nodes are initialized */ 


{ 
+#ifdef DYacFlag 


printf("LP in database specification recognized|n"): 
=endif 

kms ptr->dki ent non.enn type = ’e: 

kms ptr->dki ent non.enn range = TRUE; 

kms ptr->dki ent non.enn num values = O; 

kms ptr->dki ent non.enn constant — = PALSE: 


} 


enumeration literal list RP 


enumeration literal list: 
enumeration literal 


/* the pointers are set for value nodes with " / 

/* concurrent incrementation of the number of */ 
/* value nodes present in the nonentity and */ 
/* function structures 3 


kms ptr->dki ent non.enn num values++; 
kms ptr->dki ent non.enn _ value = = entval ptr; 


kms ptr->dki ent non.enn total length = enum length; 
entval ptr — NULL: 


l enumeration literal list COMMA enumeration literal 


{ 


kms ptr->dki ent non.enn num values++; 
entval ptr2 — kms _ptr->dki_ ent non.enn value; 
while (entval _ptr2->next != NULL) 
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entval ptr2 = entval ptr2->next; 
entval ptr2->next = entval ptr; 
if (enum length > kms ptr->dki ent non.enn total length) 


kms ptr->dki ent_non.enn _total length = enum length: 
entval ptr = NULL: 


enumeration literal: IDENTIFIER 


#ifdef DY acF lag 
printf("enumeration literal recognized\n"): 
#endif 
entval ptr = ent value alloc(); 
enum length = strlen($1) + 1; 
entval ptr->ev value = var str allocfenum length); 
strepy(ent val ptr->ev value, $1); 


entval ptr->next = NULL: 


integer range: RANGE int range 


” 
1 


int range :INTEGER LITERAL ELIPSES INTEGER LITERAL 
{ 


} 


add range non nodef’i’, $1, $3); 
float range: RANGE FLOAT LITERAL ELIPSES FLOAT LITERAL 
add range non node('f, $2, $4); 
derived type definition: NEW name id derived range 
/* the nonentity, subtype nonentity, and derived type */ 


/* nonentity nodes are examined to find which con- */ 


/* the current value of IDENTIFIER 


serror = 16; /* incompatable derived type */ 
compare non node type(temp value, serror); 
derived range: /* enumeration type not included? section 4.2.4 */ 


integer range 
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| float range 


3 


entity type definition: 
ENTITY 


{ 


free namel list(), 
entity component declaration list END ENTITY 
l ENTITY END ENTITY 


entity component declaration list: 
entity component | declaration 
entity component declaration list entity component declaration 


entity component declaration: 


namel list COLON 
{ 


px x 


initialize use prev name flag 
use prev name = FALSE: 


) 


function type declaration 


{ 
ifdef DYacFlag 
printf("function type declaration in entity compo declaration\n"); 
+#endif 
temp ptr = kms ptr->dki temp ptr; 
while (temp ptr '= NULL) 


funct count—+; 
funct ptr = function node alloc(); 
strepy(funct ptr->fn name, temp ptr->name); 
if (use prev name) 

funct_ptr->fn type = ’e’; 
else 

funct ptr->fn type = kms ptr->dki funct.fn type; 
funct ptr->fn range = kms ptr->dki funct.fn range; 
funct ptr->fn total length = kms _ptr->dki funct.fn total length; 
funct ptr->fn num value = kms ptr->dki : funct.fn num value; 
funct ptr->fn “value = kms _ptr->dki | funct.fn value; 
funct ptr->fn entptr = kms _ptr->dki | funct.fn _entptr; 
funct ptr->fn subptr = kms _ptr->dki funct.fn subptr; 
funct ptr->fn nonentptr = kms _ptr->dki funct.fn nonentptr; 
funct ptr->fn nonsubptr = kms _ptr->dki : funct.fn nonsubptr; 
funct ptr->fn nonderptr = kms ptr->dki i funet.fn _nonderptr; 
funct ptr->fn_entnull = kms ptr->dkì : funct.fn _entnull; 
funct ptr->fn unique = kms ptr->dki funet.fn unique; 
funct ptr->next = last funct ptr, 
last funct ptr = funct ptr; 
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temp ptr = temp ptr->next; 


) 


error SEMICOLON 


3 


function type declaration: 
function type end scalar function 


| set type | definition SEMICOLON 


; 


set type definition: SET OF function type 


kms ptr->dki funct.fn set = TRUE; 


3 


end scalar function: 
SEMICOLON 
| ASSIGN 
{ 


serror = 18; /* incompatible assignment */ 
kms ptr->dki funct.fn num value = 1; 
kms_ptr->dki funct.fn value = ent value alloc() 
kms ptr->dki funct.fn value->next = NULL; 


default value SEMICOLON 


3 


default value: 


INTEGER LITERAL 


if (kms_ptr->dki funct.fn_type != ’i’) 

proc eval error(serror,$1); /* incompatible assignment */ 
kms ptr->dki funct.fn value->ev value = var str alloc(strlen($1)+1) 
strcpy(kms ptr->dki funct.fn value->ev value,$1) 


FLOAT LITERAL 


if (kms ptr->dki funct.fn_type != ’f) 
proc eval _error(serror,$1); /* incompatible assignment */ 

kms _ptr->dki | funct.fn value->ev value = var str alloc(strlen($1)+1); 

strepy (kms _ptr->dki funct.fn _value->ev _value 81): 


CHARACTER STRING 


if (kms ptr->dki funct.fn type != ’s’) 
proc eval error(serror,$1); /* incompatible assignment */ 

kms _ptr->dki funct.fn value->ev value = var str alloc(strlen($1)+1); 

strcpy (kms _ptr->dki funct.fn _value->ev _value 81); 


} 
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boolean value 


if (kms ptr->dki funct.fn type != 'b") 


proc eval _error(serror, MM), 77 incompatible assignment * 


boolean value: 

TRUE T 
{ 
kms_ptr->dki funct.fn value->ev value = var str alloc(2): 
strepy (Rms _ptr->dki_ funct.fn value- >ev value, DE): 


} 
| FALSE T 


kms _ ptr->dki funct.fn value->ev value = var str alloc(2): 
strcpy(kms _ptr->dki_ funct.fn _value->ev value. gu). 


) 


function type: 

type mark constraint 

STRING LP string range RP 

{ 

put dki funct('s”): 

kms ptr->dki funct.fn total length = 
str to _num(kms _ptr->dki ent non.enn value->next->ev value) - 
str to num(kms ptr->dki ent non.enn _value->ev _value) + 1; 


} 


string range: 
int range 
| INTEGER LITERAL 
{ 
add range non _node(’:’, "1", $1); 


} 


) 


type mark: 
name id 
{ 
use prev name = TRUE; 
ennptr = db _ptr->fdn nonentptr; 
entptr = db ptr->fdn entptr; 
subptr = db ptr->fdn _subptr; 
snnptr = db ptr->fdn_nonsubptr; 
dnnptr = db ptr->fdn nonderptr; 
in PALSE; 
while ((ennptr != NULL) && (tin)) 
{ 
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if (stremp(ennptr->enn name, temp value) == FALSE) 


in = FRUE. 

put dki funct(ennptr->enn type); 

kms _ptr->dki funct.fn total length = 
ennptr->enn total length; 

kms ptr->dki funct. fn nonentptr — = ennptr; 


else 
ennptr = ennptr->enn next node: 


j 
while ((snnptr != NULL) && (!in)) 
if (strcmp(snnptr->snn_ name, temp value} == FALSE) 
in = FRUE. 
put dki funct(snnptr->snn type): 
kms ptr->dki funct.fn total length = 
snnptr->snn total length: 


kms ptr->dki funct.fn nonsubptr = snnptr: 


else 


) 


while ((dnnptr != NULL) && (!in)) 


snnptr = snnptr->snn next node: 


if (stremp(dnnptr->dnn name, temp value) == FALSE) 


n= TRUE: 

put dki funct(dnnptr->dnn type); 

kms _ptr->dki funct.fn total length = 
danptr->dnn total length; 

kms ptr->dki funct. fn nonderptr — dnnptr: 


else 


) 


while ((subptr != NULL) && (!in)) 
{ 


dnnptr = dnnptr->dnn next node; 


if (stremp(subptr->gsn name, temp value) == FALSE) 


in = PRUE; 
put dki “funet( E”); 
kms  ptr->dki funct.fn subptr = subptr; 


) 


else 
subptr = subptr->gsn next genptr; 
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while ((entptr '= NULL) && (!in)) 
if (stremp(entptr->en name, temp value) == FALSE) 


w= TRUE: 
put dki funct(’E’); 
kms ptr->dki funct.fn entptr = entptr, 


entptr = entptr->en next ent; 


strcpy(temp, temp value); 


else /* id must be previously declared */ 
proc eval error(19.temp value): 


FLOAT 
put dki funct(’f): 
| e 
put dki funct(’1’); 
| BOOLEAN 


put dki funct(’b’); 
) 


) 


constraint: 
/* empty */ 
| range constraint 
| null constraint 


if (kms ptr->dki funct.fn type != *E”) 
{ 
printf("warning: illegal null constraint declaration ignored\n"); 


kms ptr->dki funct.fn_entnull = FALSE; 


} 
} 


) 


range constraint: 
/* range constraints here are ignored, no action necessary */ 
integer range 
| float range 
| enumeration range 
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4 


enumeration range: RANGE IDENTIFIER ELIPSES IDENTIFIER 


null constraint: 


WITHNULL 


{ 
kms ptr->dki funct.fn entnull = TRUE; 


j 
| WITHOUTNULL 


3 


subtype declaration: 
IS 
{ 
serror = 13; /* duplicate id ın list */ 
} 
complete subtype SEMICOLON 


| incomplete subtype declaration 


7 


complete subtype: 
name id subtype definition 
{ 
serror — 17: /* incompatable subtype declaration * / 
compare non node type(temp value, serror); 


/* create sub non node */ 

snnptr = sub non node _alloc(); 

strepy(snnptr->snn name, temp value); 

snnptr->snn type = kms ptr->dki ent non.enn type; 
snnptr->snn total length = kms ptr->dki ent non.enn total length; 
snnptr->snn range = kms ptr->dki ent non.enn range; 
snnptr->snn num values = kms _ptr->dki ent non.enn num values; 
snnptr->snn value = kms _ptr->dki ent non.enn value; 

kms _ptr->dki ent non.enn value — : NULL; 

snnptr->snn next node = db _ptr->fdn wone: 

db _ptr->fdn_ _nonsubptr = = snnptr; 


) 
| id list 


/* locate or create the gen sub node " / 
the subptr = db ptr->fdn subptr; 

in = FALSE; 

while ((the subptr != NULL) && (!in)) 


if (stremp(the subptr->gsn name, temp name id) == FALSE) 
in = TRUE: 

else 
the subptr = the subptr->gsn next genptr; 
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} 
if (lin) 


the subptr = new gen sub node(temp name id): 


/* For each name id in id list,locate the gen sub node *' 
/* or the ent node and change them to non terminal type. 

* Corresponding overlap node is created and the _subptr ar 
Å is updated. på å 


E, 


temp ptr = kms ptr->dki temp ptr: 
while (temp ptr != NULL) 
i 
subptr = db ptr->fdn_ subptr: 
entptr = db ptr->fdn entptr: 
in = FALSE: 
while ((subptr != NULL) && (!in)) 
i 


if (stremp(subptr->gsn name. temp ptr->name) == FALSE) 


m= TRUE: 
subptr->gsn terminal = FALSE: 
the subptr->gsn nüm sub. 
snl ptr = sub node list _alloc(); 
snl _ptr->subptr = = subptr: 
snl ptr->next = the subptr->gsn subptr; 
the subptr->gsn subptr = snl ptr; 
} 
else 
subptr = subptr->gsn next genptr; 


} 
while ((entptr '= NULL) && (!in)) 


if (stremp(entptr->en name, temp ptr->name) == FALSE) 
i 
in = TRUE; 
entptr->en terminal = FALSE; 
the subptr->gsn num ent-+; 
enl ptr = ent node list alloc(): 
en] ptr->entptr = = entptr; 
enl ptr->next = the subptr->gsn entptr; 
the subptr->gsn entptr = enl ptr; 
} 
else 
entptr = entptr->en next ent; 
} 
if (tin) /* use of undefined entity type or subtype */ 
proc eval error(15,temp ptr->name); 
temp pir = temp ptr->next; 
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entity type definition 
{ 
if (the subptr->gsn num funct ==0) 
{ 
the subptr->gsn ftnptr = funct per: 
the subptr->gsn num funct = funct count; 
) 
else /* entity subtype name must be unique */ 
proc eval error(12,temp name id); 
funct count = 0: 
last funct ptr = NULL; 
} 
STRING LP string range RP 


) 


subtype definition: 

RANGE enumeration literal ELIPSES enumeration literal 
integer range $ o 
float range 
/* empty *, 


incomplete subtype declaration: 
SEMICOLON /* entity */ 
{ 
if (found) 
subptr = new gen sub node(temp value}; 
else /* duplicate subtype El p 
proc eval error(12,temp value); 


ee, 


/** dml statement **/ 
A | 


dml statement: 
create statement 
| destroy statement 
| move statement 
| loop statement 


? 


dml statement2: 
assignment statement 
| include statement 
| exclude statement 
| destroy statement 
| move statement 
| procedure call 
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create statement: 
CREATE NEW 

{ 
kms _ ptr->dml statement ptr = dml statement _alloc(); 
kms _ ptr->dml statement ptr->type = Create; 
kms ptr->dml statement ptr->dap expr ptr = NULL; 
kms ptr->dml statement ptr->indexed comp ptr = NULL; 
kms ptr->dml statement ptr->basic expr ptr = NULL; 
kms ptr->dml statement ptr->comp assoc ptr = NULL: 


} 
create part SEMICOLON 


{ 


kms ptr->dml statement ptr->comp assoc ptr = comp assoc ptr; 


} 


create part: 


{ 


serror = 13: | * duplicate identifiers in list * 
} 
id list 
Ú 
* perform error checking and fill structure dap create list " 
/* All functions for each name id in the list is attached on 
/* dap createList pointed to by kms _ptr->dki create */ 
if (! proc create ent type(db ptr->fdn entptr)) 
proc create sub typeldb ptr->fdn subptr); 

) 


named aggregate 


= j 


build reg line list(): 

/* temp for program testing */ 
req ptr = kms ptr->dki req ptr; 
while (req ptr != NULL) 


printf("%s|n",req ptr->req line); 
reg ptr — reg ptr->next; 


) 


named aggregate: 
LP component association list RP 


| /* empty */ 


comp assoc ptr = NULL; 


} 
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component association list: 
component association 


{ 


kms ptr->dml] statement ptr->comp_assoc ptr = new comp assoc ptr; 


comp assoc ptr = kms ptr->dml statement ptr->comp assoc ptr: 
comp assoc ptr->next = NULL; 


} 


| component association list COMMA component association 


hew comp assoc ptr->next = comp assoc ptr; 
comp assoc ptr = new comp assoc ptr; 


j 


component association: 


IDENTIFIER 
{ 


/* check if name id is a valid attribute name * / 
del ppir = kms _ptr->dki | create: 
in = PALSE; 


while ((dcl ptr != NULL) && (!in)) 
i 


av ptr = dcl ptr->av_ pair ptr; 
while ((av_ptr != NULL) && (!in)) 


if (stremp(av_ptr->ftnptr->fn_name, $1) == 0) 
in = TRUE; 
else 


av ptr = av ptr->next; 


del ptr = del ptr->next; 
) 
if (lin) /* invalid function name * / 
proc eval error(26,31); 
else 


new comp assoc ptr = comp assoc list alloc(); 
strepy(new comp assoc ptr->name, $1); 


simple expr ptr = &(new comp assoc ptr->simple_ expr); 


clean dki evl ptrf(); 
) 
IMPLY simple expr 
{ 


av ptr->num value = kms ptr->dki evl ptr.num values; 
av _ptr->valptr = kms ptr->dki evl ptr.ev ptr; 
kms ptr->dki evl ptr.ev ptr = NULL; 


3 
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literal : 
CHARACTER STRING 
{ 
literal type = String; 
put dki ent value list(literal type,$1): 


) 
| INTEGER LITERAL 
{ 


literal type — Integer; 
put dki ent value list(literal type,$1): 


FLOAT LITERAL 
i 
literal type = Float: 
put dki ent value list(literal type,$1); 


IDENTIFIER /* Can be Entity, GenSub or Enumeration constant * / 
i 
if (search entity($1) != NULL) 
literal type = Entity: 
else if (search gensub($1) != NULL) 
literal type = GenSub: 
else 5 
literal type = Enum: 
put dki ent value list(literal type,S1): 


TRUE T 

{ 

literal type = Boolean; 

put dki ent value list(literal type,"1"): 


} 
FALSE T 
{ 
literal type = Boolean; 
put dki ent value list(literal type,"0"); 


) 


3 


jz 


Memory must be allocated before activating the following rules: 


dap expr uses dap expr ptr 
simple expr uses simple expr ptr 

dap range uses dap range ptr 
domain uses domain ptr 


Rules that allocate memory themselves : 


comp assco list returns comp assoc ptr; 
relation returns rel list ptr 
basic expr list returns basic expr ptr 
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indexed component returns indexed comp ptr 
set constructor returns set construct ptr 
function application returns funct appin ptr 


w 


set constructor: 
LCB 
set construct ptr = set constructor allocí): 
simple _expr ptr = simple _exprl_alloc(): 


} 


end set constructor 


3 


end set constructor: 
basic expr list RCB 
set construct ptr->basic expr ptr = basic expr_ptr: 
basic expr ptr = NULL: 


simple expr IN set constructor part WHERE dap expr RCB 


* 


RCB /* empty or null list */ 
{ 

literal type = String; 

put dki ent value list(literal type, "SNULL"); 
set construct ptr->basic expr ptr = NULL; 

set construct ptr->set construct2 ptr = NULL; 
set construct ptr->set construct3 ptr = NULL; 


j 


set constructor part: 

{ 
set construct2 ptr — set construct2 alloc(); 
set construct ptr->set construct2 ptr = set construct2 ptr; 
set_construct2 ptr->simple exprl_ ptr = simple expr_ptr; 
dap expr ptr = &(set construct2 ptr->dap expr_ptr); 
} 

namel 

Å 
set construct3 ptr= set construct3 alloc(); 
set “construct _ptr->set | construct3 _ptr = set construct3 ptr; 
set _construct3 _ptr->simple _exprl ptr = simple _expr_ptr; 
dap range ptr = &(set construct3 ptr->dap range); 
dap expr ptr = &(set_construct3 ptr->dap expr ptr); 


dap range 


basic expr: 
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literal 


{ 


new basic expr ptr = basic expr list alloc(); 
strepy(new basic expr ptr->lit array,kms ptr->dki ev] ptr.ev ptr): 
new basic expr ptr->indexed comp ptr = NULL; my u 
new basic _expr ptr->funct appln ptr = NULL, 


} 


indexed component 


{ 


new basic expr ptr = basic expr list alloc(); 

new basic _expr ptr->indexed comp ptr = indexed comp ptr; 
new basic expr ptr->funct appln ptr = NULL; 

strepy (new basic expr ptr->lit array,""): 

indexed comp pir = Np: 


) 


| function application 


{ 


new basic expr ptr = basic expr list alloc(); 

new basic expr ptr->funct appln_ ptr = funct appln_ ptr; 
new basic expr ptr->indexed comp ptr = NULL; 

strepy (new basic expr ptr->lit_array.""): 

funct _appln _ptr = NULL; 


) 


basic expr list: 
basic expr 


{ 


new basic expr ptr->next = NULL; 
basic expr ptr = new basic _expr_ptr; 


} 
| basic expr list COMMA basic expr 


new basic expr ptr->next = basic expr ptr, 
basic expr ptr = new basic expr ptr; 


) 


) 


dap expr: 
relation 


{ 


rel list ptr->next = NULL; 

dap _expr_ptr->rel list_ptr =rel list ptr; 
dap expr ptr->relation type = = Relation; 
rel list ptr = NULL; 


| rel and list 
| rel . or list 


rel and list: 
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relation 
{ 
dap expr ptr->rel list ptr = rel list ptr; 
rel list ptr = NULL; 
) 
AND relation 
{ 
rel list ptr->next = NULL; 
dap _expr ptr->rel list ptr->next = rel list ptr; 
dap expr _ptr->relation _type = AndRelation: 
rel list pir = NULL, 


) 
| rel and list AND relation 
{ 
rel list ptr->next = dap expr ptr->rel list ptr; 
dap _expr ptr->rel list ptr = rel list ptr; 


rel list ptr = NULL: 
) 


rel or list: 
relation 
{ 
dap expr ptr-òrel hist ptr — rel list ptr; 
rel list ptr = NULL; 
} 
OR relation 
{ 
rel list ptr->next = NULL; 
dap expr ptr->rel list ptr->next = rel list ptr; 
dap expr ptr->relation type = OrRelation; 
rel list ptr = NULL; 


| rel and list OR relation 
{ 
rel hist ptr->next = dap expr ptr->rel list ptr; 


dap _expr ptr->rel list ptr = rel list ptr; 
rel list ptr = NULL; 


) 


3 


relation: 
{ 
/* This procedure is added to avoid reduce/reduce conflicts in YACC */ 
/* memory allocation for rel _list_ptr, simple expr ptr EL 
/* are performed here ay 
rel list ptr = relation list alloc(); 
simple _expr ptr = simple _exprl_alloc(); 


) 


relation2; 
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relation2: 
simple expr 
{ 
rel_list_ptr->simple exprl ptr = simple expr ptr: 
simple expr ptr = NULL: 
) 
| simple expr rel op 
{ 
rel list ptr->simple expr2 ptr = simple expr2_alloc(): 
rel list _ptr->simple expr2 ptr->first expr = simple expr ptr: 
rel_list_ptr->simple expr2 ptr->rel operator = rel operator: 
simple expr pir = simple exprl alloc(); 
) 
simple expr 
{ 
rel list_ptr->simple expr2 ptr->second expr = simple expr ptr: 
simple expr ptr = NULL: 
) 
simple expr In op 
i 
rel list ptr-o simple exprè ptr — simple exprè alloc(): 
rel list _ptr->sımple expr3 ptr->simple expr = simple expr_ptr: 
simple _expr ptr = NULL: 
rel list ptr->simple expr3 ptr->in op = in op: 
dap range ptr = dap range info allocí): 
rel list ptr->simple expr3 ptr->dap range = dap range ptr: 
) 
dap range 
| simple expr in op IDENTIFIER 


if ((search entity($3) != NULL) || (search gensub($3) != NULL)) 


rel list_ptr->simple expr4 ptr = simple expr4 alloc(); 
rel list _ptr->simple exprá ptr->simple expr = simple expr ptr; 
rel list _ptr->simple exprá ptr->in op = in op; 
strepy(rel list ptr->simple exprá ptr->name_id, $3); 
simple expr ptr = NULL: 


else 
proc eval error(15,53); 


3 


simple expr: 
literal 
{ 
strcpy (simple expr ptr->lit array, kms ptr->dki evl ptr.ev ptr); 
simple expr ptr->set construct pur = NULL; 
simple expr _ptr->indexed comp pir = NULL; 


simple expr ptr->funct appin ptr = NULL; 


) 
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| set constructor 
{ 
simple expr ptr->set construct ptr = set construct ptr; 
simple expr _ptr->indexed _comp ptr = NULL; 
simple expr ptr->funct appln_ ptr = NULL; 
strcpy(simple expr ptr->lit array, ""): 


| indexed component 


{ 

simple expr ptr->indexed comp ptr = indexed comp ptr: 
simple expr ptr->set_ construct ptr = NULL; 

simple expr _ptr->funct _appln_ ptr = NULL: 

strcpy (simple expr ptr->lit array, ""); 


j 


| function application 


{ 


simple expr ptr->funct appln ptr = funct appln_ptr; 
simple expr ptr->indexed comp ptr= NULL: 


simple expr ptr->set construct ptr = NULL; 


strepy(simple expr ptr- >lit array, ""); 


} 


function application: 


{ 


funct appln ptr = funct appin alloc(); 


} 


function name LP expr types RP 


3 


function name: 


COUNT 
{ 


funct appin ptr->type = COUNT; /* use token value */ 


| SUM 
{ 


funct appin ptr->type = SUM; 


) 
| AVG 


{ 
funct appln ptr->type = AVG; 


| MIN 
{ 


funct appln_ ptr->type = MIN; 


| MAX 
{ 


funct appin ptr->type = MAX; 


j 
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expr types: 
IDENTIFIER 


if ((search entity($1) != NULL) || (search gensub($1) != NULL)) 
strcpy (funct appln ptr->name id, $1); 
else = 
proc eval error(15,$1): 
} 


set constructor 

{ 

funct_appln ptr->set construct ptr = set construct ptr; 
funct appin _ptr->indexed comp pir = NULL; 
strepy(funct appin ptr->name id, ""); 

set construct ptr = NULL; 


} 


‚indexed component 
{ 
funct appln ptr->indexed comp ptr = indexed comp ptr; 
funct appin ptr->set construct ptr = NULL; 
strepy(funct appin ptr->name id, så 
indexed comp ptr = NULL; 


} 


3 


indexed component: 
dm] name id LP IDENTIFIER RP 
{ 
/* check for the innermost IDENTIFIER */ 
indexed comp ptr = indexed component alloc(): 
if ((entptr = search _entity($3)) != NULL) 
indexed comp ptr->type = Entity; 
else if ((subptr = search gensub($3)) != NULL) 
indexed comp ptr->type = GenSub; 
else if ((loop info ptr != NULL) && 
(stremp($3, loop info ptr->loop parameter) == 0)) 


indexed comp ptr->type = LoopParameter; 
entptr = loop info ptr->entptr; 
subptr = loop info ptr->subptr; 


) 


else /* undeclared entity type, subtype or loop parameter */ 


proc eval error(27, $3); 
break; 


strcpy(indexed comp ptr->name id, $3); 


strcpy(indexed comp ptr->parent name, ""); 
indexed comp ptr->next = NULL; 
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/* check for each name in kms ptr->dki temp ptr */ 
temp ptr = kms ptr->dki temp ptr; 
while (temp ptr != NULL) 
{ 
/* check if temp ptr->name is a valid function */ 
new indexed comp ptr = indexed component_alloc(); 
new indexed _comp ptr->next = indexed comp ptr; 
indexed comp ptr = new indexed comp ptr; 
strepy(indexed comp ptr->name id, temp ptr->name); 
funct ptr = search _funct(indexed _comp ptr, entptr, subptr); 
if (funct ptr == NULL)  /* invalid function name */ 
proc eval error(26, temp ptr->name); 
else if (temp _ptr->next '= NULL) 


/* check if it is entity type or subtype */ 

entptr = funct ptr->fn entptr; 

subptr = funct ptr->fn subper; 

if (entptr '= NULL) 
indexed comp ptr->type = Entity; 

else if (subptr '= NULL) 
indexed comp ptr->type = GenSub; 


{ 


proc eval error(15,temp ptr->name), 


break: 
} 


else 


} 


temp ptr = temp ptr->next; 


) 


| dml name id LP indexed component RP 


3 


dml name id : IDENTIFIER 
{ 
/* stack IDENTIFIERs in kms ptr->dki temp ptr */ 
temp ptr = ident list alloc(); 
strepy (temp _ptr->name, $1); 
temp ptr->next = kms _ ptr->dki temp ptr; 
kms ptr->dki temp ptr = temp ptr; 


} 


3 


include statement: 
INCLUDE 
{ 
kms ptr->dml statement ptr = dml statement _alloc(); 
kms ptr->dml statement ptr->type = Include; 
kms ptr->dml statement ptr->dap expr ptr = dap expr info alloc(); 
kms ptr->dml statement ptr->basic expr ptr = NULL; 
dap expr ptr = kms ptr->dml statement ptr->dap expr ptr; 
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) 
dap expr INTO indexed component SEMICOLON 


{ 


kms ptr->dml statement ptr->indexed comp ptr = indexed comp ptr; 


) 


exclude statement: 
EXCLUDE 

{ 
kms ptr->dml statement ptr = dml statement alloc(): 
kms ptr->dml statement ptr->type = Exclude; 
kms ptr->dml statement ptr->dap expr ptr = dap expr _ info alloc(); 
kms ptr->dml statement ptr->basic expr ptr = NULL: 
dap expr ptr = kms ptr->dml statement ptr->dap expr _ptr; 


dap expr FROM indexed component SEMICOLON 
{ 


kms ptr->dml statement ptr->indexed comp ptr = indexed comp ptr: 


} 


destroy statement: 
DESTROY 
{ 
kms ptr->dml statement ptr = dml statement alloc(); 
kms ptr->dml statement ptr->type = Destroy; 
kms ptr->dml statement ptr->dap expr ptr = dap expr info alloc(); 
kms _ptr->dml | statement ptr->indexed comp ptr = NULL; 
kms ptr->dml statement ptr->basic expr ptr = NULL; 
dap expr ptr= kms ptr->dml statement ptr->dap expr ptr; 


} 
dap expr SEMICOLON 


? 


assignment statement: 
indexed component ASSIGN 
{ 
kms ptr->dml statement ptr = dml statement alloc(); 
kms ptr->dml statement ptr->type = Assignment; 
kms ptr->dml statement ptr->basic expr_ptr = NULL; 
kms ptr->dml statement ptr->indexed comp ptr = indexed comp ptr; 
kms ptr->dml statement ptr->dap expr ptr = dap expr info alloc(); 
dap expr ptr = kms ptr->dml statement ptr->dap expr_ptr; 


dap expr 


) 


move statement: 


MOVE 
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i 


kms ptr->dml statement ptr = dm] statement _alloc(); 

kms ptr->dml statement ptr->type = Move; 

kms ptr->dml statement ptr->dap expr ptr = dap expr _ info _alloc(); 
kms ptr->dml statement ptr->indexed comp ptr = NULL; 

kms ptr->dml statement ptr->basic_expr_ptr = NULL; 

dap expr ptr= kms ptr->dml statement ptr->dap expr ptr; 


dap expr move statement? SEMICOLON 


7 


move statement2 : 
move from 
| move to 
| move from move to 


move from: 


FROM namel list 


move to: 
INTO create part 


procedure call: 
{ 
kms ptr->dml statement ptr = dml statement alloc(); 
kms ptr->dml statement _ptr->basic _expr ptr = basic expr ptr; 
kms ptr->dml statement ptr->dap expr ptr = NULL; 
kms ptr->dml statement ptr->indexed comp ptr = = NULL: 
) 
procedure name LP basic expr list RP SEMICOLON 


3 


procedure name: 


PRINT 
{ 


kms ptr->dml statement ptr->type = Print; 


) 
| PRINT LINE 
{ 


kms ptr->dml statement ptr->type = PrintLine; 
} 


3 


loop statement: 
real loop SEMICOLON 
| IDENTIFIER COLON real loop IDENTIFIER SEMICOLON 
| IDENTIFIER COLON real loop SEMICOLON 


? 
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real loop: 


{ 
loop info ptr — loop info alloc(): 
kms ptr->loop info pir = loop info ptr: 


} 


iteration clause basic loop end loop 


3 


iteration clause: 
iteration body 


i 


loop info ptr->order comp ptr = NULL: 


} 


iteration body BY order component list 


3 


iteration body: 
for clause IDENTIFIER 
{ 


strcpy(loop info ptr->loop parameter, $2); 
domain ptr = &(loop info_ptr->domain); 


} 


IN domain 


3 


for clause: 
FOR 
| FOR EACH 


3 


domain: 
loop expr 


{ 


domain ptr->dap expr ptr = NULL, 
| loop expr WHERE 


dap expr ptr = dap expr info alloc(); 
domain ptr->dap expr ptr = dap expr _ ptr; 


} 
dap expr 


) 


loop expr: 
indexed component 


domain ptr->indexed comp ptr = indexed comp ptr; 
strcpy(domain ptr->name,""); 


) 
| IDENTIFIER 
{ - 
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/* IDENTIFIER must be entity type or subtype */ 

loop : info ptr->entptr = search entity($1); 

loop ` info _ptr->subptr = search gensub($1); 

if ((loop : info ptr->entptr != NULL) ¡| (loop info ptr->subptr != NULL)) 


domain ptr->indexed comp ptr = NULL; 
strepy(domain _ptr->name,$1); 


) 


proc eval error(15,81): 


else 
) 


order component list: 
order component 


{ 


order comp ptr->next = NULL; 
loop info ptr->order comp ptr = order comp ptr; 
order _comp ptr = NULL; 


) 


order component list COMMA order component 

{ 

order comp ptr->next = loop info ptr->order comp ptr; 
loop info _ptr->order comp ptr = order comp ptr; 
order _comp ptr = NULL; 


) 


3 


order component: 


{ 


order comp ptr = order comp list alloc(); 


) 


sort order indexed component 


{ 


order comp ptr->indexed comp ptr = indexed comp ptr; 
indexed comp ptr = NULL; 


) 


3 


sort order: 


ASCENDING 


{ 
order comp ptr->sort order = ASCENDING; 


} 
| DESCENDING 


{ 
order comp ptr->sort order = DESCENDING; 


) 
| /* empty */ 


{ 
order comp ptr->sort order = ASCENDING; 
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basic loop: 
sequence of statements 
LOOP sequence of statements 


sequence of statements: 

dml statement? 
{ 
dml statement? list ptr = dml statement? list alloc(); 
dml statement? list _ptr->dml | statement? pir = kms ptr->dml statement ptr: 
dml statement? list _ptr->next = NULL; E o S 
loop _ info _ptr->dml _ statement? list_ptr = dml statement? list ptr; 
kms _ptr->dml | statement ptr = NULL: 


} 


sequence of statements dml statement? 

i 

dml statement? list pir = dml statement? list alloc(): 

dm] statement? list _ptr->dml | statement? _ptr = kms ptr->dml statement ptr: 
dm] statement? list _ptr->next = loop info ptr->dml statement? list ptr: 

loop _ info _ptr->dml statement? list ptr = dml statement? _hst ptr: 

kms ptr->dml statement ptr = = NULL: 


) 


end loop: 
END 
| END LOOP 


: 
/* 


namel list: namel 
namel list COMMA namel 


narnel: name id 


name id DOT name id 


rel op: 
EQ 
{ 
rel operator = EQ: /* use token value *, 
} 
NE 
{ 


rel operator 


} 


| 
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rae 
{ 


rel operator = LT; 


} 
: LE 
{ 
rel operator = LE; 


} 
en 


{ 


rel operator = GT; 
} 

| GE 
{ 


rel operator = GE: 


in op = INOp; 
} 
| NOT IN 


in op = NINOp; 
} 


3 


dap range: 
INTEGER LITERAL ELIPSES INTEGER LITERAL 
{ 
dap range ptr->range type = Integer: 
strcpy(dap range ptr->first value, $1); 
strcpy(dap range ptr->second value, $3); 


| FLOAT LITERAL ELIPSES FLOAT LITERAL 
{ 
dap range ptr->range type = Float; 
strepy(dap range ptr->first value, $1); 
strcpy(dap range ptr->second value, $3); 


%% 


f kernel mapping system () 
{ 


reset_variables(); 
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/* alloc and init dap kms info struct * 

kms ptr = dap kms info _alloc(); 

kms ptr->dki temp ptr = NULL; 

kms ptr->dki id ptr = NULL: 

kms ptr->dki  overfirst _ptr = NULL; 

kms ptr->dki ev pir = NULL; 

kms ptr->dki create = = NULL; 

kms _ ptr->dki req ptr = NULL; 

kms _ ptr->dki cel ptr = NULL; 

kms _ ptr->dki create ovrptr = NULL; 
if (cuser dap ptr->ui li type.li dap. dap operation != CreateDB) 

{ 

cuser dap ptr->ul li type.li dap.dpi kms data.ki d kms = kms ptr; 

dml req len = cuser dap ptr->ui li type.li dap.dpi dml tran. 

ti curr req.ri dap req->dri req len; 

Va 

dm] info ptr = &(cuser dap ptr->ui li type.li dap); 

strcpy (db. dml info ptr->dpi curr db. cdi_ dbname); 


) 


* 


mem ptr =cuser dap ptr->ui li type.li dap.dpi dml tran. 
S ti curr reg.ri dap req->dri reg: 
#ifdef DYacF lag 
printf ("calling yyparse \n"): 
#endif 


yyparse(): 


#ifdef DYacFlag 
printf ("returning from yyparse \n"); 
#endif 


/* reset all boolean and counter variables */ 
kms info cleanup(); 
#ifdef DYacFlag 
printf ("Exit parser \n"); 
# endif 
} 


yyerror (s) 


char *s; 


if (cuser dap ptr->ui li type.li dap.dap operation == CreateDB) 
cuser dap ptr->ui li type.li dap.dap error = ErrCreateDB; 
printf ("Correct error before re-submitting that DB Description file \n"); 
/* free all the malloc’d variables in the current schema */ 


schema cleanup(); 


else 
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{ 
cuser dap ptr->ui li type. dap.dap error = ErrReqTran; 
kms info cleanupf(); 
) 
/* reset all boolean and counter variables * / 
reset variables(); 
printf ("\n%s \n", s); 


} 


schema cleanup() 


{ 
) 


kms info cleanup() 


{ 
} 


reset variables() 


{ 
} 


last funct ptr = NULL: 


DE ere 


#include <stdio.h> 
#include <strings.h> 
+#include "flags.def" 
+include "licommdata.def" 
#include "struct.def" 
#include "dap.ext" 
#include "kms.ext" 


proc eval error(num,str in) 
int num: 
char *str in; 


{ 


switch (num) 


{ 


case 1: printf("Error - duplicate constant name:"); 
break; 
case 2: printf("Error - duplicate non entity type name:"); 


break; 
case 3: printf("Error - duplicate entity type name:"); 
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case 4: 


case 9: 


case 6: 


case 7: 


case 8: 


case 9: 


case 10: 


case 11: 


case 12: 


case 13: 


case 14: 


case 15: 


case 16: 


case 17: 


case 18: 


case 19: 


case 20: 


case 21: 


case 22: 


case 23: 


case 24: 


case 25: 


case 26: 


case 27: 


default: 


break: 

printf("Error - cannot create new type. Base type undefined:"); 
break; 

printf("Error - attribute name must be unique:"); 
break; 

printf("Error - undeclared function identifier:"); 
break; 

printf("Error - nonentity subtype name must be unique:"); 
break; 

printf("Error - incompatible types must be nonentity type:"): 
break: 


printf("Error - entity type must have been declared previously:"); 
break: 


printf("Error - undeclared subtype name:"); 


break: 

printf("Error - incompatible types must be entity type:''); 
break: 

printf("Error - duplicate entity subtype name:"); 

break: 

printf("Error - duplicate identifier in list:"); 

break: 

printf("Error - overlap type must be terminal subtype:"); 
break: 

printf("Error - undefined entity type or subtype:"): 
break: 

printf("Error - incompatible derived type declaration:"); 
break; 

printf("Error - incompatible subtype declaration:"); 
break; 

printf("Error - incompatible assignment:"); 

break; 

printf("Error - identifier must be previously declared:"); 
break; 

printf("Error - overlap types must have same base type:"); 
break; 


printf("Error - non-terminal type entity in create:"); 

break; 

printf("Error - more than one entity type name in create:"); 
break; 

printf("Error - no default value for enumeration type attribute:"); 
break; 

printf("Error - value must be declared for entity type attribute:"); 
break; 

printf("Error - overlap constraint not declared:"); 

break; 

printf("Error - invalid function name:"); 

break; 

printf("Error - undefined entity type, subtype or loop parameter:"); 
break; 

printf("Error - error code: %d:", num); 
break; 
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} /* end switch */ 
printf(" sin", str in); 


) 
put dki ent non(enn type, str val) 


char enn type; 
char *str val; 


{ 


struct ent value "ent value alloc(); 
char *var str alloc(); 


kms ptr->dki ent non.enn type = enn type; 
switch (enn type) 


case ’f’: kms ptr->dki ent non.enn total length = FLTLength; 


break: 

case 'b : 

case `i : kms ptr->dki ent non.enn total length = INTLength: 
break: 

default 


} 


kms ptr->dki ent non.enn range = FALSE; 
kms ptr->dki ent non.enn num values = 1: 
kms ptr->dki ent non.enn constant = TRUE: 
kms ptr->dki ent non.enn value = ent value alloc(); 
kms ptr->dki ent non.enn _ value->ev value = 
var str _alloc( strlen (str val) +1); 
strepy(kms _ptr->dki_ ent non.enn value->ev value, str val); 
kms ptr->dki ent non.enn _value->next = = NULL; 


put dki funct(fn type) 

char fn type; 
kms ptr->dki funct.fn type = fn type; 
switch (fn type) 


case ' : kms ptr->dki funct.fn total length = FLTLength; 


break; 

case ’b’: 

case "Y : kms ptr->dki funct.fn total length = INTLength; 
break; 

default : kms ptr->dki funct.fn total length = 0; 
break; 


} 
kms ptr->dki funct.fn range = FALSE; 
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kms ptr->dki funct.fn set = FALSE; 

kms ptr->dki : funet.fn _ num value = 0; 
kms_ptr->dki | funet fn value = — NULL: 
kms ptr->dki : functín _entptr = NULL: 
kms ptr->dki funet.fn _subptr = NULL; 
kms ptr->dki ; —funct.fn _nonentptr = NULL; 
kms ptr->dki funct.fn _nonsubptr = NULL: 
kms ptr->dki : —funct.fn _nonderptr = NULL; 
kms ptr->dki funct.next = NULL; 

kms _ptr->dki —funct.fn _entnull = FALSE; 
kms ptr->dki : funct.fn unique = FALSE: 


} 


add ent non node(enn name) 
char enn name|ENLength - 1]; 


{ 


struct fun dbid node *db ptr; 
struct ent non node “ent non node alloc(), 
“enn ptr; 


db pir = cuser dap ptr->ui li type.li dap.dpi curr db.cdi db.dn fun; 
enn ptr = ent non node _alloc(); 

strcpy(enn ptr->enn name, enn name); 

enn ptr->enn type = kms ptr->dki ent non.enn type; 

enn ptr->enn total length = kms _ptr->dki_ ent non.enn total length; 
enn ptr->enn range = kms ptr->dki ent non.enn range; 

enn ptr->enn num values = kms _ptr->dki | ent non.enn num values; 
enn ptr->enn value = kms _ptr->dki ent non.enn value; 

kms _ptr->dki_ ent non.enn value = NULL; 

enn ptr->enn constant = kms _ptr->dki ent non.enn constant: 

enn ptr->enn next node = db _ptr->fdn_ _nonentptr; 

db ptr->fdn _nonentptr = = enn ptr; 

db ptr->fdn num nonent++; 


struct gen sub node *new gen sub node(temp value) 


char temp value|ENLength + 1); 


{ 


struct fun dbid node *db ptr; 
struct gen : sub node *gen sub node alloe(), 
*gen ptr; 


db ptr — cuser dap ptr->ui li type.li dap.dpi curr db.cdi db.dn fun; 
gen ptr — gen sub node _alloc(); 

strepy(gen ptr->gsn name, temp value); 

gen ptr->gsn num funct = 0; 
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gen ptr->gsn terminal = TRUE; 
gen ptr->gsn entptr = NULL; 
gen ptr->gsn num ent = 0; 
gen ptr->gsn ftnptr = > NULL: 
gen ptr->gsn subptr = NULL; 
gen ptr->gsn num sub = 0; 
gen ptr->gsn next genptr = db ptr->fdn subper; 
db ptr->fdn _subptr = = gen ptr; 
db ptr->fdn num gen++; 
return(gen ptr); 


compare non node type(temp value, serror) 


char temp value[ENLength + 1]; 
Int serror; 


struct fun dbid node *db ptr: 
struct ent non node *enn ptr: 
struct sub non node *snn ptr; 
struct der non node *dnn ptr; 
int in; 


db ptr = cuser dap ptr->ui li type.li dap.dpi curr db.cdi db.dn fun, 
enn ptr = db ptr->fdn_nonentptr; 
snn ptr = db ptr->fdn nonsubptr; 
dnn ptr = db ptr->fdn_nonderptr; 


in = FALSE; 
while ((enn_ptr!= NULL) && (!in)) 
{ 


if (stremp(enn ptr->enn name, temp value) == FALSE) 


in = TRUE; 
if (enn ptr->enn type != kms ptr->dki ent non.enn type) 
proc eval error(serror,temp value); 


} 


else 


} 


while ((snn_ ptr != NULL) && (!in)) 


enn ptr = enn ptr->enn next node; 


if (stremp(snn ptr->snn name, temp value) == FALSE) 


{ 
ID TRUE; 
if (snn ptr->snn type != kms ptr->dki ent non.enn type) 
proc eval error(serror,temp value); 
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else 


) 


while ((dnn ptr != NULL) && (!in)) 


snn ptr = snn ptr->snn next node; 


if (strcmp(dnn_ptr->dnn name, temp value) == FALSE) 
m = PRUGE: 
if (dnn ptr->dnn type != kms ptr->dki ent non.enn type) 


proc eval error(serror.temp value): 


else 


) 


if (lin) 


proc eval error(serror.temp value): 


dnn ptr = dnn ptr->dnn next node: 


add range non node(enn type. strl. str2) 


char enn type: 
char “strl. “ser2: 


struct ent value *ent value alloc(). 
*entval ptr; 
char *var str alloc(): 


/* update kms info * 
kms _ptr->dki | ent non.enn type = enn type: 
switch (enn type) 
{ 
case 'f : kms ptr->dki ent non.enn total length = FLTLength: 
break: 
case *1' : kms ptr->dki ent non.enn total length = INTLength: 
break: 
) 


kms ptr->dki ent non.enn range = TRUE: 
kms ptr->dki ent non.enn num values = 2; 
kms ptr->dki ent non.enn constant = FALSE; 


/* create value node for first integer " / 
kms ptr->dki ent non.enn value = ent value alloc(): 
kms ptr->dki ent non.enn value- >ev value = 
var str alloc( 'strlen(strl) + 1); 
strepy(kms ptr->dki ent non. enn value->ev value, strl); 


/* create value node for second integer */ 
entval ptr = ent value alloc(): 
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entval ptr->ev value = var str alloc( strlen(str2) — 1), 
strcpy(entval ptr->ev value, str2); 

entval ptr->next = NULL: 

kms ptr->dki ent non.enn value->next = entval ptr; 


free id list() 


{ 


struct ident list "ident ptr.: 
*next ident ptr: 


ident ptr = kms ptr->dki id ptr: 
while (ident ptr != NULL ) 
{ 
next ident ptr = ident ptr->next:; 
free(ident ptr): 
ident cei = next ident ptr: 
l 
kms ptr->dki id ptr = NULL: 
} 


free temp list() 


{ 


struct ident list *ident ptr, 
*next ident ptr; 


ident ptr = kms ptr->dki temp ptr; 
while (ident ptr != NULL ) 
{ 
next ident ptr = ident ptr->next; 
free(ident ptr); 
ident ptr = next ident ptr; 


kms ptr->dki temp ptr = NULL; 
) 


free namel list() 


{ 


struct ident list *ident ptr, 
"next ident ptr; 


ident ptr = kms ptr->dki namel ptr; 
while (ident ptr != NULL ) 
{ 
next ident ptr = ident ptr->next; 
free(ident ptr); 
ident ptr = next ident ptr; 
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} 


kms ptr->dki namel ptr = NULL; 


} 


find base type(genptr. base name) 


struct gen sub node *genptr; 
char "base name: 


{ 
if (genptr->gsn subptr != NULL) 
find base type(genptr->gsn_ subptr->subptr, base name); 
else if (genptr->gsn entptr != NULL) o 
strcpy(base name, genptr->gsn entptr->entptr->en name); 
else u o 5 
strepy(base name, genptr->gsn name): 


Ge FIL Ec dmi.c 


#include <stdio.h> 
#include <strings.h> 
#include <ctype.h> 
#include "flags.def" 
#include "lcommdata.def" 
#include "struct.def" 
#include "dap.ext" 
#include "kms.ext" 


proc create ent type(entptr) 
struct ent node *entptr; 


{ 


struct dap create list *dap create list alloc(); 
struct dap av pair list *build funct av pair(), 
*build key av pair(), 


*av pur; 
struct ident list *temp ptr; 
int 1n: o 
#ifdef EnExF lag 
printf("Enter proc create ent type\n"); 
#endif 


/* Check if first name id is entity type */ 
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temp ptr = kms _ ptr->dki temp ptr; 
ın = FALSE; 
while ((entptr != NULL) && (!in)) 


if (stremp(entptr->en name, temp ptr->name) == FALSE) 
in = TRUE; 
else 


entptr = entptr->en next ent; 


) 


if (in) 
{ 
if (entptr->en terminal == FALSE) 
/* must be terminal type for create */ 
proc eval error(21,temp_ptr->name}; 


else if (temp ptr->next != NULL) 


> * 


not more than one name in list when creating entity type *, 
proc eval error(22.temp ptr->name): 


else /* build create ent list * 
{ 
free dki create(): 
kms ptr->dki create = dap create list alloc(); 
kms ptr->dki create->req type = Insert; 
strcpy(kms_ ptr->dki create->en name, entptr->en name); 
av ptr = build key av _pair(entptr); 
av ptr->next = - build funct av pair(entptr->en ftnptr); 
kms ptr->dki create->av pair ptr = av pir; 
kms ptr->dki create->next = NULL; 


) 
) 
#ifdef EnExFlag 
printf("Exit proc create ent type\n"); 
#endif 
return(in); 
} /* end proc create ent type */ 


proc create sub type(genptr) 
struct gen sub node *genptr; 


{ 


int in; 

struct fun dbid node “*db ptr; 
struct overlap node *ovrptr; 
struct gen sub node *subptr; 


struct sub node list *snlptr; 
struct create ent list "cel ptr, 

*create ent list alloc (); 
struct sub node list — "sub node list alloc(); 
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struct ident list "temp ptr; 


#ifdef EnExFlag 
printf("Enter proc create sub typeln"); 
#endif 


free dki create(); 


kms ptr->dki cel ptr = NULL; 


/* ensure multiple name ids are overlap sub node type */ 
/* skip if there is only one name id in the list 2 
temp ptr = kms ptr->dki temp ptr; 

if (temp ptr->next != NULL) o 


db ptr =cuser dap ptr->ui li type.li dap.dpi curr db.cdi db.dn fun: 
ovrptr = db ptr->fdn ovrptr; DE u 5 
in = FALSE; u 
while (ovrptr '= NULL && (!in)) 

{ 

snlptr = ovrptr->snlptr: 

while (snlptr '= NULL && (!in)) 

{ 


if (stremp(snlptr->subptr->gsn name, temp ptr->name) == 0) 
i 
in = TRUE: 


kms ptr->dki create ovrptr = ovrptr; 


else 
snlptr = snlptr->next; 
ovrptr = ovrptr->next; 
if (lin) /* overlap constraint not declared " / 
proc eval error(25,temp ptr->name); 
else 


/* check the all remaining name ids */ 
temp ptr = temp ptr -> next; 
while (temp ptr != NULL) 
{ 
snlptr = kms ptr->dki create ovrptr->sn]ptr; 
in = FALSE; 
while (snlptr != NULL && (!ıin)) 


if (stremp(temp ptr->name, snlptr->subptr->gsn name) == 0) 
in = TRUE; 
else 


snlptr = snlptr->next; 


if (tin) /* overlap constraint not declared */ 
proc eval error(25,temp ptr-x name): 
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temp ptr = temp ptr->next: 
} 
) 
) 
temp ptr — kms ptr->dki temp ptr; 
while (temp ptr != NULL) 
{ 
subptr = genptr; /* rewind subptr */ 
in = FALSE; 
while ((subptr != NULL) && (!in)) 


if (stremp(subptr->gsn name. temp ptr->name) == FALSE) 
in TRUE: 


else 


} 


if (lin) 


* undeclared entitv type or subtype * 


subptr = subptr->gsn next genptr; 


proc eval error(15.temp ptr->name]: 


else if (subptr->gsn terminal == FALSE) 
/* must be terminal type for create * 


proc eval error(2l.temp ptr->name ) 


else 


{ 


cel ptr = create ent list alloc(); 

cel ptr->enl ptr = NULL; 

cel ptr->snl_ ptr = sub node list alloc(); 
cel ptr->snl ptr->subptr = subptr; 

cel ptr->snl ptr->next = NULL; 

cel ptr->next = kms ptr->dki cel ptr; 
kms ptr->dki cel ptr = cel ptr; 


) 


temp ptr = temp ptr->next; 
} /* end while temp ptr */ 


build create list(); 
#ifdef EnExF lag 
printf("Exit proc create sub type\n"); 
#endif 
} /* end proc create sub type */ 


build create list() 


{ 


struct sub node list  *snl ptr; 
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struct ent node list “enl ptr; 

struct ent node *overlap entptr; 

struct gen sub node *overlap subptr: 

struct create ent list "cel ptr, p 
*new cel ptr, 
*temp cel ptr, 
create ent list alloc(); 


#ifdef EnExFlag 
printf("Enter build create list\n"); 
#endif 


new cel ptr = NULL: 

overlap entptr = NULL; 
overlap subptr = NULL; 

cel ptr = kms Pr, cel ptr: 
while (cel pir != = NULL) 


snl ptr — cel ptr->snl pur: 
enl ptr = cel ptr->enl ptr: 
while (sn]_ptr != NULL) 

i 


jx * 


skip if it is the overlapping base type *, 
/* it will be added last to avoid duplicates *, 
if (stremp(snl ptr->subptr->gsn name, 
kms ptr->dki create _ovrptr-> base _type name) == 0) 
overlap subptr = snl_ptr->subptr: 
else 


build sub create list(snl ptr->subptr); 
if ((snl _ptr->subptr->gsn_entptr != NULL) || 
(snì_ptr->subptr->gsn_subptr != NULL)) 
{ 
temp cel ptr = create ent list alloc(); 
temp cel ptr->en] ptr = snå ptr->subptr->gsn entptr; 
temp cel ptr->snl_ ptr = snl ptr->subptr->gsn_subptr; 
temp cel ptr->next = new cel ptr; 
new cel ptr = temp cel ptr; 
) 
) 
Snl ptr = snå ptr->next; 
} /* end while snå pir */ 


while (enl ptr != NULL) 


/* skip if it is the overlapping base type */ 
/* it will be added last to avoid duplicates " / 
if (stremp(enl_ ptr->entptr->en name, 
kms ptr->dki create ovrptr->base type name) == 0) 
overlap entptr = enl ptr->entptr; 
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else 
build ent create list(enl ptr->entptr); 
enl ptr = enl ptr->next; 
) /* end while enl_ ptr */ 


cel ptr = cel ptr->next; 
SP P 
} /* end while cel ptr */ 


free dki cel ptr(); 
/* recursively call build create list() when there is more supertypes " / 
if (new cel ptr '= NULL) 
{ 
kms ptr->dki cel ptr = new cel ptr: 
build create list(); 


else 


/* Now, build the overlap base entity */ 
if (overlap entptr != NULL) 

build ent create list(overlap entptr); 
else if (overlap subptr '= NULL) 

build sub create listfoverlap subptr); 


#ifdef EnExF lag 
printf("Exit build create list|n"): 
#endif 


} /* end build create list */ 
build ent create list(entptr) 


struct ent node *entptr; 


{ 


struct dap create list *dap create list alloc(), 
"del ptr; 

struct dap av pair list *build funct av pair(), 
*build key av pair(), 


*av pur; 
#ifdef EnExF lag 
printf("Enter build ent create list\n"); 
#endif 


del pir = dap create list alloc(); 

del ptr->req type = Insert; 

strepy(del ptr->en name, entptr->en name); 

av ptr = build key av pair(entptr); 

av ptr->next = build funct av pair(entptr->en finptr); 
del ptr->av pair ptr = av ptr; 
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del ptr->next = kms _ptr->dki create: 
kms ptr->dki create = del per: 


slídef EnExFlag 
printf("Exit build ent create list\n"); 
æendif 
) 


build sub create list(subptr) 


struct gen sub node *subptr: 


{ 


struct dap create list “dap create list alloc(), 
"del ptr; 

struct dap av pair list *build funct av pair(). 
*build sub key av pair(), 
"last av ptr, gr 
“av ptr: 


=ifdef EnExF lag 
printf("Enter build sub create list n"); 


sendif 


del pir = dap create list alloc(): 
del ptr->req type = Insert: 
strcpy(dcl ptr->en name, subptr->gsn name); 
av pir = build sub key av pair(subptr); 
last av ptr = av ptr: 
while (last av pur->next != NULL) 

last av ptr = last av ptr->next; 
last av ptr->next = 

build funct av pair(subptr->gsn ftnptr); 

del ptr->av pair ptr= av ptr; 
del ptr->next = kms _ptr->dki create; 
kms ptr->dki create = dcl ptr; 


#ifdef EnExFlag 
printf("Exit build sub create list\n"); 
+endif 
} 


struct dap av pair list *build key av pair(entptr) 
struct ent node “entptr; 


{ 

struct dap av pair list *dap av pair list alloc(), 
ha A *av ptr; 

struct ent value *ent value alloc(): 

char “var str alloc(): 
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av pir = dap av pair list alloc(): 

strepy(av ptr->name, entptr->en name); 

av ptr->ftnptr = NULL; 

av ptr->num value = 1: 

av _ptr->valptr = = ent value alloc(): 

av ptr->valptr->ev value = var str alloc(INTLength): 

num to _str[entptr->en last ent id + 1, av ptr->valptr->ev value); 
av _ptr->valptr->next = = NULL; 

av ptr->next = NULL; 


return(av ptr); 


) 
struct dap av pair list *build sub key av pair(subptr) 
struct gen sub node *subptr; 


i 
struct dap av pair list “dap av pair list alloc(), 
“new av ptr, 
o 


*av _ ptr: 
struct ent value "ent value alloc(); 
struct ent node list *enl _ ptr; 
struct sub node list  *snl ptr; 
#ifdef EnExF lag 
printf("Enter build sub key av pair|n"); 
#endif 


av pir = NULL: 
enl ptr = subptr->gsn entptr; 
snl ptr = subptr->gsn_subptr: 


while (enl_ptr != NULL) 
{ 
new av ptr = build key av pair(enl ptr->entptr); 
last av ptr — nev av ptr; o 
while (last av _ptr->next ! = NULL) 
last av ptr = last av ptr->next; 
last av ptr->next = av ptr; 
av ptr = new av ptr; 
enl ptr = enl ptr->next; 


} 


while (snl ptr != NULL) 
{ 
new _av ptr = build sub key av pair(snl ptr->subptr); 
last av ptr = new av ptr, 
while (last av _ptr->next '= NULL) 
last av ptr = — last av ptr->next; 
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last av ptr->next = av ptr; 
av ptr = new av ptr; 
snl ptr = sr ptr->next; 


) 


#ifdef EnExFlag 
printf("Exit build sub key av pair|n"); 
#endif 


return(av ptr); 


} 
struct dap av pair list *build funct av_pair(ftnptr) 


struct function node "ftnptr: 


{ 
struct dap av pair list “dap av pair list alloc(). 
"av ptr. 
“last av ptr: 


last av ptr = NULL; 
while (finptr != NULL) 
{ 
av ptr = dap av pair list alloc(); 
strepy(av ptr->name, ftnptr->fn name); 
av_ptr->ftnptr = ftnptr; 
av ptr->num value = 0; 
av ptr->valptr = NULL; 
av ptr->next = last av ptr; 
last av ptr = av ptr; 
ftnptr = ftnptr->next; 
} /*end while ftnptr * / 


return(av ptr); 
} /* end build funct av pair */ 


build req line list() 
{ 

struct dap create list *dcl ptr; 

struct req line list “req ptr, 
T PIT 
"last req ptr, 
*append attr value(), 
*req line list alloc(); 

struct dap av pair list *av ptr; 

int en len: Of" length of en name */ 

int i; / index */ 


free dki req ptr(); 
dc] ptr = kms ptr->dki create; 
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while (del pir != NULL) 


if (kms ptr->dki reg pir == NULL) 
{ 
req ptr = req line list alloc(); 
kms _ ptr->dki req ptr = req ptr; 


else 


last req ptr->next = req line list alloc(): 
req ptr = last red ptr->next; 
} 
last _req_ ptr = req _ ptr; 
if (del ptr->req type == Insert) 
strcpy(req_ptr->req line, "INSERT(<FILE,"); 
else 
strcpy(req ptr->req_ line, "RETRIEVE(<FILE,"); 
en len = strlen(dcl ptr->en name); 
for (ìi = 1: 1 < en len; i++) 
del ptr->en name i) = tolower(dcl ptr->en_nameji)); 
strcat(req ptr->req | line.del _ptr->en name): 
av ptr — del pu _pair_ ptr; 
while (av pir != NULL) 
{ 
r ptr = req ptr: 
while (r pir != NULL) 
{ 
streat(r ptr->req line,">,<"); 
strcat(r ptr->req line,av _ptr->name); 
strcat(r ptr->req line"); 
r pir = r ptr->next; 
) 
if (av ptr->num value > 0) 
last req ptr = append attr value(req ptr.av ptr->valptr); 


else if (av ptr->ftnptr->fn num value > 0) 
/* use default value */ 
last req ptr = 
append attr value(req ptr,av ptr->ftnptr->fn value); 
else 7 
{ 
r ptr = req ptr; 
while (r ptr != NULL) 


/* provide system default value */ 
switch (get base fun type(av ptr->ftnptr)) 
{ 
case ‘i’: strcat(r_ptr->req_line,"0"); 
break; 
case ”f”: strcat(r ptr->req line,"0.0"); 
break; 
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case ’s’: strcat(r_ptr->req line,"*****"): 
break; u 

case 'e': proc eval error(23,av ptr->name): 
break; 


case 'E': if (av ptr->ftnptr->fn entnull) 
strcat(r ptr->req line,"0"); 
else 
proc eval error(24,av ptr->name); 
break: 
) 
r pir = r ptr->next: 
) 
} 
av pir = av ptr->next; 
) 
r ptr = req ptr; 
while (r_ptr != NULL) 
{ 
strcat(r ptr->req line.">)"): 
r ptr = r ptr->next; 


del ptr = del ptr->next; 
} 
} 


free dki create() 


{ 


struct dap create list *dcl per, 
“next del ptr; 


dcl ptr = kms ptr->dki create; 
while (del pir != NULL) 


next dcl ptr = del ptr->next; 
free(dcl_ ptr); 
del ptr = next del ptr; 


kms ptr->dki create = NULL; 


} 


free dki req ptr() 


struct req line list “req ptr, 
*next req ptr; 


req ptr = kms _ ptr->dki req _ ptr; 
while (req_ptr != NULL) 
J 
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next req ptr — req ptr->next; 
free(req_ ptr); 
req ptr = next req ptr; 
} 
kms _ptr->dki req ptr = NULL: 


} 


free dki cel ptr() 
struct create ent list *cel ptr, 
“next cel ptr; 


cel ptr = kms ptr->dk1 cel ptr, 
while (cel ptr !'= NULL) 
{ 
next cel ptr = cel ptr->next; 
free(cel ptr): 
cel ptr= next cel ptr; 
j 
kms ptr->dki cel pir = NULL; 


) 
struct req line list “append attr value(the req ptr, the val ptr) 


struct req line list "the req ptr; 
struct ent value *the val ptr; 
{ 
struct req line list “req ptr, 
*next req ptr, 
*last_ req ptr, 
"reg line list alloc(); 


struct ent value *val ptr; 
#ifdef EnExFlag 

printf("Enter append attr value\n"); 
#endif 


/* duplicates current req line for multiple values */ 
req ptr = the req ptr; 
while (req_ptr != NULL) 


next req ptr = req ptr->next; 
val ptr = the val ptr; 
while (val ptr->next != NULL) 


req ptr->next =req line list alloc(); 

strepy(req ptr->next->req line, req ptr->req line); 
req ptr = req ptr->next; 

val ptr = val ptr->next; 
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} /* end while */ 
req ptr->next = next req ptr; 
req ptr = next req ptr; 


} 


req ptr = the req ptr; 
while (req_ptr != NULL) 
{ 


val ptr =the val ptr; 
while (val ptr != NULL) 


strcat(req ptr->req line, val ptr->ev value); 
last reg ptr — req ptr: È o 

req ptr = reg ptr-Dnext: 

val ptr = val ptr->next; 

} /* end while * 


} 


=ifdef EnExFlag 
printf("Exit append attr value\n"); 
=endif 


return(last req ptr): 
) /* end append attr value " 


get base fun type(fptr) 


struct function node *fptr; 


{ 


char fun type; 


#ifdef EnExFlag 
printf("Enter get base fun type\n"); 
#endif 


switch (fptr->fn_type) 


{ 


ze 


case %? : 
case f": 
case 's' : fun type = fptr->fn type; 
break; 
case ’b’: fun type = i), 
break; 


case ’e’: if (fptr -> fn entptr != NULL || 
fptr -> fn subptr != NULL) 
fun type = "E;; 
else if (fptr -> fn nonentptr != NULL) 
fun type = fptr->fn nonentptr-> enn type; 
else if (fptr -> fn nonsubptr != NULL) 
fun type = fptr -> fn nonsubptr -> snn type; 
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else if (fptr -> fn nonderptr != NULL) 

fun type = fptr -> fn nonderptr -> dnn type; 

break; 

) /* end switch */ 


#ifdef EnExFlag 
printf("Exit get base fun typeln"); 
#endif 


return(fun type); 


} /* end get base fun type * 


put dki ent value list(type, str in) 


int type: 
char “Str In: 


{ 


struct ent value “ev ptr: 
int | 


If (Kms ptr->dki evl ptr.num values == 0) 
kms ptr->dki evl ptr.type = type; 


ev ptr = ent value alloc(); 
ev ptr->ev value = var str alloc(strlen(str in) + 1); 
if (type == String) 
for (i = 1; i < strlen(str_ in); i++) 
if (isupper(str injil)) 
str infil — toloverístr inli)): 

strepy(ev ptr->ev value. str in); 
ev ptr->next = kms _ptr->dki evl ptr.ev ptr; 
kms ptr->dki evl ptr.ev ptr = ev ptr; 
kms ptr->dki_evl ptr. num values++; 


clean dki evl ptr() 


{ 


struct ent value *ev_ ptr, 
*next ev ptr; 

kms ptr->dki evl ptr.type =>? >; 

kms ptr->dki evi _ptr.num EL =’). 

ev ptr = kms _ptr->dki_ evl _ptr.ev_ ptr; 

while (ev_ptr != NULL) 
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next ev pir = ev ptr->next: 
i pur): 
> ptr = next ev ptr; 


kms _ ptr->dki evl ptr.ev ptr = NULL: 


) 


struct ent node “search entity(en name) 
char *en name: 


{ 
int found = FALSE: 


struct ent node “entptr: 


entptr = 
cuser dap ptr->ui li type.li dap.dpi curr db.cdi db.dn fun->fdn entptr: 
while ({entptr '= NULL) && ('found)) 


{ 


if (strcmpl{entptr->en name. en name) == FALSE) 
found = TRUE: 
else 


entptr = entptr->en next ent; 


) 


return(entptr): 


} 


struct gen sub node “search gensub(gsn name) 
char *gsn name: 


{ 
iat found = FALSE: 


struct gen sub node “subptr: 


subptr = 
cuser dap ptr->ui li type.li dap.dpi curr db.cdi db.dn fun->fdn_subptr; 
while ((subptr '= NULL) && (!found)) 


{ 


if (stremp(subptr->gsn name, gsn_ name) == FALSE) 
found = TRUE; 
else 


subptr = subptr->gsn next genptr; 


) 


return(subptr); 


) 


struct function node “*search funct(indexed comp ptr, entptr, subptr) 
struct indexed component *indexed comp ptr: 


struct ent node *entptr; 
struct gen sub node *subptr; 
int found; 


struct function node *funct ptr; 

struct ent node list *enlptr; 

struct sub node list ”snlpur; 

struct ent node *dummy entptr = NULL: 
struct gen sub node "dummy subptr = NULL; 


if (entptr != NULL) 
{ 
funct ptr = entptr->en ftnptr; 
found = FALSE; 
while ((funct pir != NULL) && (!found)) 
i 
if (stremp(funct ptr->fn name, indexed comp ptr->name id) == FALSE) 


{ 


strcpy(indexed comp ptr->parent name. entptr->en name}: 


found = TRUE: 
} 


else 


} 


funct ptr = funct ptr->next; 


else 


funct ptr = subptr->gsn ftnptr; 
found = FALSE; 
while ((funct pir != NULL) && (!found)) 


if (stremp(funct ptr->fn name, indexed comp ptr->name id) == FALSE) 
i 
strepy(indexed comp ptr->parent name, subptr->gsn name); 


found = TRUE; 
} 


else 
funct ptr = funct ptr->next; 


enlptr = subptr->gsn_entptr; 
while ((!found) && (enlptr != NULL)) 
{ 


funct ptr = search funct(indexed comp ptr, enlptr->entptr, 
dummy _subptr); 
if (funct ptr != NULL) 
found = TRUE; 


else 
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enlptr = enlptr->next: 


) 


snlptr = subptr->gsn subptr; 
while ((!found) && (snlptr '= NULL)) 


funct ptr = search funct(indexed comp ptr. dummy entptr, 
snlptr->subptr); 
if (funct pur != NULL) 
found = TRUE: 
else 
snlptr = snlptr->next; 
} 


} 


return(funct ptr): 
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APPENDIX D 


THE DAPLEX GRAMMAR RULES 


<statement> ::= 
<ddl-statement> 
| <dml-statement> 


<ddl-statement> ::= 
DATABASE <name-id> IS <declarative-item-list> <end-database> SEMICOLON 


<end-database> ::= 
END 
| END <name-id> 


<declarative-item-list> ::= 
<declarative-item > 
<declarative-item-list> <declarative-item > 


<declarative-item> ::= 
< declaration > 
| <overlap-rule> 
|  <uniqueness-rule> 


| 


<overlap-rule> ::= OVERLAP <namel-list> WITH <namel-list> SEMICOLON 
<uniqueness-rule> ::= UNIQUE <id-list> WITHIN <name-id> SEMICOLON 


<declaration> ::= 
<number-declaration> 
| TYPE <new-id> <type-declaration> 
| SUBTYPE <new-id> <subtype-declaration> 


<number-declaration> ::= 


<new-id-list> COLON CONSTANT ASSIGN <simple-const> SEMICOLON 


<simple-const> ::= 
INTEGER-LITERAL 
FLOAT-LITERAL 
CHARACTER-STRING 


<type-declaration> ::= 
IS <type-definition> SEMICOLON 
| IS <entity-type-definition> SEMICOLON 


| | <incomplete-type-declaration> 
<incomplete-type-declaration> ::= SEMICOLON 
<type-definition> ::= 
<enumeration-type-definition> 


| <integer-range> 
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<float-range> 
<derived-type-definition > 


<enumeration-type-definition> ::= LP <enumeration-literal-list> RP 
<enumeration-literal-list> ::= 
<enumeration-literal> 
<enumeration-literal-list> COMMA <enumeration-literal> 
<enumeration-literal> ::= IDENTIFIER 
<integer-range> ::= RANGE <int-range> 
<int-range> ::= INTEGER-LITERAL ELIPSES INTEGER-LITERAL 
<float-range> ::= RANGE FLOAT-LITERAL ELIPSES FLOAT-LITERAL 
<derived-type-definition> ::= NEW <name-id> <derived-range> 
<derived-range> ::= 
<integer-range > 
< float-range> 
<entity-type-definition> ::= 
ENTITY <entity-component-declaration-list> END ENTITY 
ENØIDY ENDENTITY 
<entity-component-declaration-list> ::= 
<entity-component-declaration> 
<entity-component-declaration-list> <entity-component-declaration> 
<entity-component-declaration> ::= <namel-list> COLON <function-type-declaration> 
<function-type-declaration> ::= 
<function-type> <end-scalar-function> 
<set-type-definition> SEMICOLON 
<set-type-definition> ::= SET OF <function-type> 
<end-scalar-function> ::= 
SEMICOLON 
ASSIGN <default-value> SEMICOLON 
<default-value> ::= 
INTEGER-LITERAL 
| FLOAT-LITERAL 
| CHARACTER-STRING 
| 


<boolean-value> 


<boolean-value> ::= 
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TRUE 
FALSE 


<function-type> ::= 
<type-mark> <constraint> 
STRING LP <string-range> RP 


<string-range> ::= 
<int-range> 


INTEGER-LITERAL 


<type-mark> ::= 
<name-id> 
FLOAT 
INTEGER 
BOOLEAN 


<conetraınt> ::= 
/* empty */ 
<range-constraint > 
<null-constraint > 


<range-constraint> ::= 
<integer-range> 
<float-range> 
<enumeration-range> 


<enumeration-range> ::= RANGE IDENTIFIER ELIPSES IDENTIFIER 


<null-constraint> ::= 


WITHNULL 
WITHOUTNULL 


<subtype-declaration> ::= 
IS <complete-subty pe> SEMICOLON 
<incomplete-subtype-declaration> 


<complete-subtype> ::= 
<name-id subtype-definition> 
| <id-list> <entity-type-definition> 
| STRING LP <string-range> RP 


<subtype-definition> ::= 
RANGE <enumeration-literal> ELIPSES <enumeration-literal> 
| <integer-range> 
| <float-range> 
| /* empty */ 


<incomplete-subtype-declaration> ::= SEMICOLON 


<name-id> ::= IDENTIFIER 
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<new-id> ::= <name-id > 


<new-id-list> ::= 
<new-1d > 
<new-id-list> COMMA <new-id> 


<id=list> -= 
<name-id> 
<id-list> COMMA <name-id> 


<namel> ::= <name-id > 


<namel-list> ::= 
<namel> 
<namel-list> COMMA <namel> 


<dml-statement > ::= 
<create-statement > 
< destroy-statement > 
<move-statement> 
<loop-statement > 


<dml-statement2> ::= 
<assignment-statement > 
<include-statement > 
<exclude-statement > 
<destroy-statement > 
<move-statement > 
<procedure-call> 


<create-statement> ::= CREATE NEW <create-part> SEMICOLON 
<create-part> ::= <namel-list> <named-aggregate> 


<named-aggregate> ::= 
LP <component-association-list> RP 


/* empty *, 


<component-association-list > ::= 
<component-association > 


<component-association-list> COMMA <component-association> 


<component-association> ::= IDENTIFIER IMPLY <dap-expr> 


<dap-expr> ::= 
<relation> 
<rel-and-list> 
<rel-or-list > 


<rel-and-list> ::— 
<relation> AND <relation> 
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i <rel-and-list> AND <relation> 


<rel-or-list> ::= 
<relation> OR <relation> 
<rel-or-list> OR <relation> 


<relation> ::= 
<simple-expr> 
| <simple-expr> <relational-operator> <simple-expr> 
| <simple-expr> <in-op> <dap-range> 
| <simple-expr> <in-op> <namel> 


<simple-expr> ::= 

<literal> 
<set-constructor> 
<indexed-component> 


<function-application> 
<function-application> ::= <function-name> LP <expr-types> RP 


<expr-types> ::= 
<namel> 
<set-constructor> 
<indexed-component > 


<indexed-component> ::= 
<dml-id-name> LP <dml-id-name> RP 
| <dml-id-name> LP <indexed-component> RP 


<set-constructor> ::= LCB <end-set-construct > 


<end-set-constructor> ::= 
<basic-expr-list> RCB 
| <simple-expr> IN <set-constructor-part> WHERE <dap-expr> RCB 
| RCB 


<set-constructor-part> ::= 
<namel> 
| <dap-range> 


<basic-expr> ::= 
<literal> 
| <indexed-component> 
| <function-application> 


<basic-expr-list> ::= 

<basic-expr> 

<basic-expr-list> COMMA <basic-expr> 
<domain> ::= 


<loop-expr> 
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| <loop-expr> WHERE <dap-expr> 
<loop-expr> ::= 
<indexed-component > 
| IDENTIFIER 
<exclude-statement> ::= EXCLUDE <dap-expr> FROM <indexed-component> SEMICOLON 
<destroy-statement> ::= DESTROY <dap-expr> SEMICOLON 
<assignment-statement> ::= <indexed-component> ASSIGN <dap-expr> 
<include-statement> ::= INCLUDE <dap-expr> INTO <indexed-component> SEMICOLON 
<move-statement> ::= MOVE <dap-expr> <move-statement2> SEMICOLON 
<move-statement2> ::= 
<move-from > 
<move-to> 
<move-from> <move-to> 
<move-from> ::= FROM <namel-list > 
<move-to> ::= INTO <create-part > 
<procedure-call> ::= <procedure-name> LP <basic-expr-list> RP SEMICOLON 
<procedure-name> ::= 
PRINT 
| PRINT-LINE 
<loop-statement> ::= 
<real-loop> SEMICOLON 


| IDENTIFIER COLON <real-loop> IDENTIFIER SEMICOLON 
| IDENTIFIER COLON <real-loop> SEMICOLON 


<real-loop> ::= <iteration-clause> <basic-loop> <end-loop> 
<iteration-clause> ::= 
<iteration-body> 
|  <iteration-body> BY <order-component-list> 
<iteration-body> ::= <for-clause> IDENTIFIER IN <domain> 
<for-clause> ::= 
FOR 
| FOR EACH 
<order-component-list> ::= 


<order-component> 
| | <order-component-list> COMMA <order-component> 
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<order-component> ::= 
<indexed-component > 


| <sort-order> <indexed-component > 


<sort-order> ::= 
ASCENDING 
| DESCENDING 


<basic-loop> ::= 
<sequence-of-statements> 
| LOOP <sequence-of-statements> 
<sequence-of-statements> ::= 
<dml-statement2> 
| <sequence-of-statements> <dml-statement2> 


<end-loop> ::= 
END 
END LOOP 


<dml-id-name> ::= IDENTIFIER 


<relational-operator> ::= 
EQ 
NE 
LT 
LE 
F GT 
| GE 


<in-op> ::= 
IN 
| NOTIN 


<dap-range> ::= 
<integer-range> 
| <float-range> 


<hteral = 
CHARACTER-STRING 
| NULL 
| TRUE 
| FALSE 


<function-name> ::= 
COUNT 

| SUM 

| AVG 

| MIN 

| MAX 
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10. 


i. 
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